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ABSTRACT 

THIS REPORT DESCRIBES THE IMPLEMENTATION OF FGRAAL » A FORTRAN 
EXTENDED GRAPH ALGORITHMIC LANGUAGE (TECHNICAL REPORT TR-179) FOR 
THE UNIVAC 1108. THE REPORT CONTAINS THE DESCRIPTION OF THE IMPLE- 
MENTED DATA STRUCTURES FOR SETS# LISTS AND GRAPHS. IT SUMMARIZES 
THE CHANGES MADt FOR THE RALPH COMPILER TO ACCOMODATE THE SPECIAL 
STATEMENTS OF FGRAAL. IT GIVES THE CALLING SEQUENCES GENERATED BY 
THE CHANGED COMPILER. IT DESCRIBES THE OBJECT TIME SUBROUTINE 
PACKAGE. 


THIS RESEARCH WAS SUPPORTED IN PART BY THE OFFICE OF NAvAL 
RESEARCH UNDER GRANT N00014-67-A-0239-0021 (NR-044-431 ) , AND THE 
NATIONAL AERONAUTICS AND SPACE ADMINISTRATION UNDER GRANT NGL 
21-002-008. 
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1. INTRODUCTION 


A GRAPH ALGORITHMIC LANGUAGE HAS BEEN DEFINED As AN EXTENSION 
OF ALGOL AND FORTRAN IN THE TECHNICAL REPORTS TR-158 AND TR-179, 
RESPECTIVELY. FGRAAL# THE FORTRAN VERSION OF THIS LANGUAGE. HAS 
BEEN IMPLEMENTED FOR THE UNIVAC 1108. THIS REPORT CONTAINS DE- 
TAILS OF THIS IMPLEMENTATION. FOR QUESTIONS REGARDING THE DEFINI- 
TION OF THE LANGUAGE AND ITS USAGE ONE SHOULD CONSULT THE TECHNI- 
CAL REPORT TR-179. THE APPENDIX OF THIS REPORT CONTAINS A TABLE 
SUMMARIZING THE SPECIAL FEATURES OF THE LANGUAGE. 

THE UNIVAC 1108 IS A WORD ADDRESSABLE COMPUTER WITH 36 BIT 
WORDS, IT MAS PARTIAL WORD INSTRUCTIONS THUS CERTAIN DATA PACKING 
INTO ONE WORD CAN BE IMPLEMENTED EFFICIENTLY. IT ALSO HAS A SET 
OF MASKED SEARCH INSTRUCTIONS WHICH ARE USED FOR CERTAIN SET 0- 
PERATIONS IN FGRAAL VERY EFFICIENTLY. 

IN CHAPTER 2 SOME HINTS ARE GIVEN FOR ACHIEVING EFFICIENCY BOTH 
IN STORAGE AND EXECUTION TIME, BASED ON THE IMPLEMENTED DAT* STRU- 
CTURE. 

THE FGRAAL IMPLEMENTATION CAN BEST BE DESCRIBED IN THREE PARTS! 
THE DATA STRUCTURES, THE COMPILER AND THE OBJECT TIME LIBRARY 
PACKAGE. THE PHYSICAL REPRESENTATION OF DATA STRUCTURES FOR THE 
VARIOUS DATA TYPES ARE SHOWN IN CHAPTER 3, WHILE CHAPTER 4 GIVES A 
FULL EXAMPLE OF A GRAPH ANU THE ASSOCIATED DATA STRUCTURE NECES- 
SARY FOR ITS REPRESENTATION, THE FGRAAL COMPILER IS A MODIFICA- 
TION OF THE RALPH COMPILER FOR FORTRAN V AND MAD. THE MAJOR CHAN- 
GES IN THE COMPILER ARE DESCRIBED IN CHAPTER 5, AND CHAPTER 6 
GIVES SPECIAL INSTRUCTION SEQUENCES GENERATED BY THE FGRAAL COMPI- 
LER FOR THE VARIOUS FGRAAL STATEMENTS. THE OBJECT TIME LIBRARY 
PACKAGE HAS BEEN WRITTEN IN UNIVAC ASSEMBLY LANGUAGE TO CUT DOWN 
THE OVERHEAD. THE ROUTINES IN THE PACKAGE ARE GROUPED, AND THEY 
ARE DESCRIBED IN CHAPTER 7, 

WE TAKE THIS OPPORTUNITY TO THANK PROF, V. R. BASILI FOR HIS 
HELP AND ADVICE IN PREPARING THIS REPORT, 
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2, HINTS FOR EFFICIENT PROGRAMMING IN FGRAAL 


THE REAOER SHOULD BE ABLE TO GAIN SUFFICIENT INFORMATION ABOUT 
MODIFYING HIS PROGRAM TO ACHIEVE MAXIMUM EFFICIENCY UNDER THE 
GIVEN IMPLEMENTATION BY READING THIS CHAPTER ALONE, HOWEVER TO 
UNDERSTAND FULLY WHY THESE RECOMENDATIONS FOR EFFICIENCY ARE VA- 
LID, THE REST OF THIS REPORT MUST BE READ, 

THE PRIMARY GOAL OF FGRAAL IS THE EASY IMPLEMENTATION OF GRAPH 
ALGORITHMS ARISING IN APPLICATION, USUALLY THE EASY IMPLEMENTATION 
OF THE ALGORITHM ALSO MEANS THAT THE PROGRAM CAN BE EASILY DE- 
BUGGED AND DOCUMENTED, UNFORTUNATELY AN EASILY IMPLEMENTED AL- 
GORITHM CAN BE VERY INEFFICIENT IN MEMORY SIZE REQUIREMENTS AND IN 
EXECUTION TIME, OBVIOUSLY, THE EFFICIENCY OF FGRAAL PPoGrAmS DE- 
PEND ON THE ARRANGEMENT OF SPECIAL DATA (SETS, PROPERTIES, ETC.) 

IN THE IMPLEMENTED FGRAAL SYSTEM, THE ARRANGEMENT OF THESE DATA 
Are DESCRIBED in the NEXT CHAPTER, IN THIS CHAPTER, WE GIVE SOME 
HINTS TO ACHIEVE EFFICIENT PROGRAMS BASED ON THE IMPLEMENTED DATA 
STRUCTURE IN FGRAAL, 

GENERALLY WE SUGGEST THAT THE PROGRAM BE WRITTEN AND DEBUGGED 
WITH AN EFFICIENT IMPLEMENTATION IN MIND, THIS DOES NOT MEAN THAT 
THE FIRST VERSION BE AS EFFICIENT AS POSSIBLE, ONLY THAT Ij LEND 
ITSELF TO EASY IMPROVEMENT. ONCE A PROGRAM IS DEBUGGED, THE EFFI- 
CIENCY OF THE PROGRAM CAN BE IMPROVED BY INSERTING FORTRAN EQUIVA- 
LENCE AND DEFINE STATEMENTS, LINEAR ARRAYS AND SOME CHANGE OF THE 
ORIGINAL PROGRAM, THESE TYHES OF IMPROVEMENT WILL BE ILLUSTRATED 
IN THE FOLLOWING SECTIONS. 


2,1, EFFICIENT USE OF SETS 


* STORAGE CAN BE SAVED DURING EXECUTION 

* OF A PROGRAM IF SETS ARE MADE EMPTY 

* AS SOON AS THEY ARE NOT NEEDED, 

THIS IS BECAUSE EACH SET WITH NO ELEMENT (EMPTY) OR WITH ONE ELE- 
MENT (ATOMIC) USES ONLY ONE MEMORY LOCATION WHICH wAS ASSIGNED TO 
IT BY THE COMPILER, 

* IT IS ADVANTAGEOUS TO KEEP THE NUMBER 

* OF NOT EMPTY OR ATOMIC SETS UNDER 15 

* AT ANY TIME DURING EXECUTION, 

SETS WITH TWO OR MORE ELEMENTS ARE REPRESENTED IN EITHER COLUMN 
OR BLOCK FORM (SEE NEXT CHAPTER FOR DETAILS). THE COLUMN FORM 
REPRESENTATION OF SETS ARE ATTACHED TO THE UNIVERSAL SEQUENCE AND 
AS SUCH THEY DO NOT REQUIRE EXTRA STORAGE SPACE, FGRAAL PROVIDES 
UP TO 15 SETS TO BE REPRESENTED IN COLUMN FORM. AS SOON AS MORE 
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THAN 15 SETS HAVE TWO OR MORE ELEMENTS > SOME OF THE SETS WILL 
AUTOMATICALLY BE TRANSFORMED INTO SLOCK FORM. A SET WITH N ELE- 
MENTS OCCUPIES 2*N/3 MEMORY LOCATIONS WHEN IT IS IN BLOCK FORM. 

THE RESULT OF A SET OPERATION IS ALWAYS PLACED IN COLUMN FORM 
UNLESS IT IS EMPTY OR ATOMIC, SINCE SETS IN BLOCK FORM OCCu p Y 
EXTRA SPACE ANO REQUIRE EXTRA TIME TO GET THEM INTO THIS FORM, ONE 
AVOIDS THIS OVERHEAD BY KEEPING THE NUMBER OF NOT EMPTY OR ATOMIC 
SETS UNDER 15 AT ANY TIME DURING EXECUTION. 

ONE CAN KEEP DOWN THE NUMBER OF SETS By USING EQUIVALENCE STA- 
TEMENTS, E.G, ASSUME THAT THE SETS S AND T ARE USED IN TwO 
NON-OVERLAPPING SEGMENTS 0*- A PROGRAM. AFTER DEBUGGING THE PRO- 
GRAM , ONE' CAN MAKE THE TWO SETS EQUIVALENT BUT STILL KEEP THEIR 

name: 

SET S # T 
EQUIVALENCE (S»T) 

(SEGMENT 1 USES S) 

(SEGMENT 2 USES T) 


2.2. SET EXPRESSIONS ANU ASSIGNMENTS 


* THE MODIFICATION OF A SET BY OTHER SETS 

* IS MOST EFFICIENTLY IMPLEMENTED BY A 

* SEQUENCE OF SIMPLE SET ASSIGNMENT OF THE 

* FORM S r S .OP. X , RATHER THAN BY USE 

* OF A COMPLEX EXPRESSION, 

THE PRESENT IMPLEMENTATION OF FGRAAL DOES NOT MAKE ANy ATTEMPT 
TO OPTIMIZE THE EVALUATION OF COMPLEX SET EXPRESSIONS. E.G. THE 
SET EXPRESSION 


l S ,DF . X ) , UN. Y 

IS EVALUATED FIRST BY USING A TEMPORARY SET T» FOR 
S .DF. X T» 

AND THE FINAL RESULT IS OBTAINED BY THE EVALUATION OF 

T ’ .UN, Y 

A VERY FREQUENTLY OCCURING set assignment STATEMENT Is RECOG- 
NIZED by the FGRAAL COMPILER, this statement 

s = S .OP. * 


MODIFIES A SET S WITH AN OTHER SET X BY TAKING THE UNION, DIF- 
FERENCE, INTERSECTION OR SYMMETRIC SUM OF THEM, I.E. OP IS ANY 
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ONE OF UN, OF, IT OR SM, THIS STATEMENT IS IMPLEMENTED SUCH THAT 
THE RESULT OF THE SET EXPRESSION, S.OP.X, IS GENERATED IN THE 
SPACE PROVIDED FOR S. THIS FEATURE OF FGRAAL MAKES IT MORE EFFI- 
CIENT TO USE MOKE STATEMENTS INSTEAD OF ONE STATEMENT WITH COMPLEX 
EXPRESSION. E.G. THE EXECUTION OF THE TWO STATEMENTS, 

S = S i.DF, x 
S = S .UN. Y 

IS MORE EFFICIENT THEN THE EXECUTION OF THE COMBINED STATEMENT 
S s ( S .OF, X ) .UN. Y 


2.3, PROPERTIES 


* USING FORTRAN ARKAYS FOR STORING 

* PROPERTY VALUES CAN BE MORE EFFICIENT 

* THAN USING DECLARED PROPERTIES. 

IN THE IMPLEMENTED FGRAAL DATA STRUCTURE* THE PROPERTY VALUES 
WITH PROPERTY IDENTIFIERS ARE LINKED TO THE ELEMENTS IN THE UNI- 
VERSAL SEQUENCE. THIS REQUIRES TWICE AS MANY MEMORY LOCATIONS AS 
THE ACTUAL MEMORY SPACE NEEDED TO STORE THE PROPERTY VALUES ONLY. 
THE RETRIEVAL AND MODIFICATION OF A PROPERTY VALUE OF AN ELEMENT 
IS ACCOMPLISHED BY A SEARCH IN THE LINKED PROPERTY BLOCKS OF THE 
ELEMENT, CLEARLY, THIS REQUIRES MUCH MORE TIME THEN THE RETRIEVAL 
AND MODIFICATION OF PROPERTY VALUES IF THEY COULD BE ARRANGED IN A 
FORTRAN TYPE OF LINEAR ARRAY. SINCE THE ELEMENTS OF THE UNIVERSAL 
SEQUENCE ARE IDENTIFIED BY POSITIVE INTEGERS* ATOMIC SETS C*N BE 
USED AS INDICES FOR DIMENSIONED VARIABLES, THIS FEATURE OF FGRAAL 
MAKES IT POSSIBLE TO CHANGE PROPERTY VARIABLES INTO FORTRAN TYPE 
DIMENSIONED VARIABLES TO ACHIEVE BETTER EFFICIENCY, 

THERE ARE SOME RESTRICTIONS ON THE USE OF LINEAR ARRA Y S FOR 

properties: 

(1) THE USE OF LINEAR ARRAYS FOR PROPERTY VALUES DEFINES THE 
PROPERTY FOR ALL VALID INDEX VALUES CORRESPONDING TO ELEMENTS IN 
THE UNIVERSAL SEQUENCE • A SPECIAL VALUE MUST BE USED IF ONE WANTS 
TO MAKE DISTINCTION FOR UNDEFINED PROPERTY FOR AN ELEMENT IN THIS 
REGION. 

(2) THE ELEMENTS FOR WHICH THE PROPERTY IS DEFINED SHOULD OCCU- 
PY A CONTIGUOUS AREA IN THE UNIVERSAL SEQUENCE IF A LINEAR ARRAY 
IS USED. FURTHERMORE* THE FIRST OF THESE ELEMENTS* AND THE SIZE OF 
THE REGION SHOULD BE KNOWN. 

WITH THESE RESTRICTIONS IN MIND, ONE COULD ATTEMPT TO CHANGE A 
DEBUGGED FGRAAL PROGRAM TO ACHIEVE HIGHER EFFICIENCY, THE STEPS TO 
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BE TAKEN FOR THIS CHANGE ARE AS FOLLOWS! 

ASSUME THAT THE PROPERTY P IS USED FOR ELEMENTS IN A CONTIGUOUS 
AREA OF THE UNIVERSAL SEQUENCE. THE FIRST OF THESE ELEMENTS IS Xl» 
AND THE SIZE OF THIS AREA IS NX. 

THEN REPLACE THE ORIGINAL DECLARATION STATEMENT 

PROPERTY P 

WITH THE FOLLOWING TWO STATEMENTS 

DIMENSION PA(NX) 

DEFINE P(X) = PA ( X-Xl+1 ) 

ANY APPEARANCE OF THE STATEMENT » 

REMOVE P 

MUST BE REPLACED WITH A SMALL LOOP 

DO ZZZ I=1#N* 

ZZZ PA ( I ) = V 

WHERE V IS A SPECIALLY DEFINED VALUE FOR 'UNDEFINED* PROPERTY. IN 
THIS CASE# THE SPECIAL FUNCTION 

CHECK(P,X) 

SHOULD BE REPLALEO BY THE EXPRESSION 


P(X) .NE. V 
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3, FGRAAL STORAGE STRUCTURE ON THE UNIVAC 1108. 


THIS CHAPTER DESCRIBES THE REPRESENTATION OF THE SPECIAL DATA 
STRUCTURES DURING THE EXECUTION OF AN FGRAAL PROGRAM. IN SECTION 
1, THE DYNAMIC STORAGE IS ASCRIBED, THIS STORAGE HOLDS ALL THE 
SPECIAL DATA OF THE FGRAAL PROGRAMS, EXCEPT FOR THE HEADERS CORRE- 
SPONDING TO THE DECLARED VARIABLES! SETS, LISTS, PROPERTIES AND 
GRAPHS. SECTION 2 DESCRIBES THE REPRESENTATION OF THE UNIVERSAL 
SEQUENCE, AND THE SETS» LISTS, PROPERTIES AND GRAPHS IN THE DYNA- 
MIC STORAGE. SECTION 3 SHOWS THE REPRESENTATION OF A CONTRACTED 
GRAPH, THAT IS, THE GRAPH REPRESENTATION MODIFIED BY THE LIBRARY 
ROUTINE CONTR. 


3.1. DYNAMIC STORAGE. 


THE DYNAMIC STORAGE AREA Is THE WORKING SPACE OF THE FGRAAL 
SYSTEM AND IT IS A CONTIGUOUS ARRAY OF COMPUTER WORDS WHERE ALL 
DATA VALUES EXCEPT THOSE ASSIGNED BY THE COMPILER ARE STORED, THE 
SIZE OF THIS STORAGE AREA VARIES AND CAN BE OPTIONALLY DESIGNATED 
BY THE USER. LOGICALLY SPEAKING, THE DYNAMIC ST0RA6E AREA CAN BE 
SUBDIVIDED INTO THREE DYNAMIC, VARIABLE-SIZED PORTIONS. THE UPPER 
PORTION IS THE UNIVERSAL SEQUENCE, THE MIDDLE PORTION IS THE 
UNUSED STORAGE AREA AND THE LOWER PORTION IS THE LINKED-BLOCK 
AREA. THE TWO END PORTIONS, STARTING FROM THE TWO END BOUNDARIES 
OF THE DYNAMIC STORAGE ARE* EXPAND THEIR SIZES By SEIZING STORAGE 
FROM THE MIDDLE PORTION. WHENEVER THESE TWO END-PoRTIONs MEET 
(AND THE MIDDLE PORTION DISAPEARS) THE AVAILABLE STORAGE IN THE 
DYNAMIC STORAGE AREA IS EXHAUSTED AND PROGRAM EXECUTION Is TER- 
MINATED WITH AN APPROPRIATE MESSAGE, 

IN FGRAAL, FROM THE DATA STRUCTURE POINT OF VIEW* THERE Are TWO 
TYPES OF STORAGE STRUCTURE ! (1) LINEAR ARRAY, (2> LINKED-BLOCK, 
THE LINEAR ARRAY IS USED MAINLY FOR THE REPRESENTATION OF THE 
UNIVERSAL SEQUENCE, WHILE THE LINKED-BLOCK STRUCTURE IS USED FOR 
THE REPRESENTATION OF ALL OTHER TYPES OF DATA (E.G, STAQuE, GRAPH, 
PROPERTY, ETC.). THE LINEAR ARRAY (OR THE UNIVERSAL SEQUENCE) IS 
LOCATED ON THE UPPER PORTION OF THE DYNAMIC STORAGE AREA, THE 
LINKED-BLOCKS ARE LOCATED ON THE LOWER PORTION OF THE DYNAMIC 
STORAGE AREA. HOWEVER, THE STORAGE MANAGEMENT ROUTINE KEEPS TRACK 
OF THE STORAGE ALLOCATED TO EACH PORTION AND PREVENTS THEM FROM 
OVERLAPPING INTO EACH OTHER, THE STORAGE MANAGEMENT ROUTINE ALSO 
MAINTAINS A SET OF GLOBAL POINTER VARIABLES WHICH ARE UPDATED 
WHENEVER THE STATUS OF THE DYNAMIC STORAGE CHANGES, THE VALUES OF 
THESE POINTERS ARE EITHER RELATIVE OR ABSOLUTE ADDRESSES, A RELA- 
TIVE ADDRESS, I> REFERS TO THE LOCATION OF D(I), WHERE ARRAY D IS 
THE DYNAMIC STORAGE AREA, AN ABSOLUTE ADDRESS REFERS TO THE AC- 
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tual location in THE COMPUTER memory. THE INITIAL (I.E. before 
any DATA IS CREATED) VALUES OF THESE POINTERS ARE AS FOLLOWS ! 
(NOTE t LOC(A) DENOTES THE ABSOLUTE LOCATION OF VARIABLE A). 


NAME 


INITIAL VALUE 


NU - LAST ELEMENT CREATED 

ND - SIZE OF THE DYNAMIC STORAGE 

NF - FIRST AVAILABLE BLOCK 

NL - LAST AVAILABLE BLOCK 

D - DYNAMIC STORAGE. D(I) .I=1.,,»ND 


0 

OPTION X 4096 
LOC(D(ND-l) ) 
LOC(D(ND-l> ) 
D(ND-1 )=Q 


INITIALLY. THE ENTIRE DYNAMIC STORAGE AREA CAN BE VlEwED AS A 
LARGE UNUSED BLOCK, WHENEVER A NEW UNIVERSAL ELEMENT IS CREATED 
BY THE EXECUTION OF ’CREATE * STATEMENTS. ONE COMPUTER WORD IS 
CARVED OUT FROM THE TOP OF THIS BLOCK AND THE POINTER NU IS INCRE- 
MENTED BY 1. THE CREATION OF NEW ELEMENTS MAYBE CONTINUED UNTIL 
THE LOC (D(NU) ) IS EQUAL TO NL, (I.E, THE AVAILABLE SPACE IS EXHAU- 
STED) THE ALLOCATION OF 2-WORD BLOCKS IS CARRIED OUT BY TAKING 
AWAY THE BOTTOM TWO WORDS FROM THE UNUSED BLOCK. WHENEVER A BLOCK 
IS RELEASED (I.E. AVAILABLE FOR OTHER USES) IT IS LINKED TOGETHER 
TO FORM A SINGLELY-LINKED AVAILABLE-BLOCK LIST WITH NF As ITS LIST 
HEADER. THE SUBSEQUENT REQUESTS FOR A 2-WORD BLOCK WILL BE SATIS- 
FIED through the allocation of a block from this available-block 
LIST. THE NEW BLOCK WILL NOT BE CREATED OUT OF THE UNUSED PORTION 
OF THE DYNAMIC STORAGE AREA UNTIL THE AVAILABLE-BLOCK LIST IS 
EXHAUSTED, IN OTHER WORDS. THE STORAGE MANAGEMENT ROUTINE TRIES 
TO SATISFY THE REQUEST FOR A 2-WORD BLOCK BY ASSIGNING An EXISTING 
AVAILABLE BLOCK BEFORE AN ATTEMPT IS MADE TO ALLOCATE A NEW BLOCK. 
THE ALGORITHM FOR ALLOCATING A 2-WORD BLOCK (WHICH IS TO BE POIN- 
TED TO BY ’AVAIL’) IS AS FOLLOWS J (NOTE i LINK ( A ) DENOTES THE 
CONTENTS OF THE LINK FIELD OF VARIABLE A) 


1, THE AVAILABLE-BLOCK LIST IS NOT EMPTY 

IF ( NF = 0 ) THFN GO TO 2. 

ELSE 

AVAIL = NF 

LINK ( NF ) = LINK(LINK(NF> ) 

RETURN 

2, THE AVAILABLE-BLOCK LIST IS EMPTY. CHECK THE UNUSED PORTION 

IF ( NL < LOC(D(NU))+2 ) THEN GO TO 3. 

ELSE 

AVAIL = NF 

LINK(NF) = LOC ( NF ) -2 

NL = LINK(NF) 

RETURN 

3, THE AVAILABLE SPACE IS EXHAUSTED 

OUTPUT MESSAGE 
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terminate PROGRAM 


THE ALGORITHM TO FREE A 2-WORO BLOCK (D(K), D (K + l ) ) IS t 

1, LINK THE 2-WORD BLOCK INTO THE AVAILABLE-BLOCK LIST 

LINK (D(K) ) = LINK <NF ) 

< 

2, UPDATE THE LIST HEADER, NF 

LINK (NF ) = LOC(D(K>) 

RETURN 

THE SCHEMATIC DIAGRAM OF THE DYNAMIC STORAGE AREA IS GIVEN IN 
FIGURE 1. (K1,K2, . . . >KM ARE BLOCKS IN THE AVAILABLE-BLOCK LIST). 


3-4 



FIGURE 1# DYNAMIC STORAGE AREA, 
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3.2, DATA REPRESENTATION 


ALL LINKS BETWEEN THE BLOCKS REPRESENTING DATA ARE WITH ABSO- 
LUTE ADDRESSES EXCEPT REFERENCES TO THE ELEMENTS IN THE UNIVERSAL 
SEQUENCE WHERE THEIR RELATIVE ADDRESSES ARE USED, E.G. »I» REFERS 
TO THE ELEMENT IN THE UNIVERSAL SEQUENCE 0 ( I > • 

3.2.1. UNIVERSAL SEQUENCE AND THE PROPERTY BLOCKS 

THE UNIVERSAL SEQUENCE IS A SEQUENCE OF ELEMENTS GENERATED BY 
THE FGRAAL 'CREATE* FUNCTIONS. IT IS THE UNION OF ALL SET ELE- 
MENTS IN THE FGHAAL SYSTEM (E.G. NODES (G) , ARCS(G), ELEMENTS OF 
ANY SET), HENCE IT IS CALLED THE UNIVERSAL SEQUENCE. THIS SE- 
QUENCE IS IMPLEMENTED AS A LINEAR ARRAY LOCATED ON THE UPPER END 
OF THE DYNAMIC STORAGE AREA# D(I), 1=1 # 2 , , . . »NU. EACH MEMORY WORD 
IN THIS ARRAY, CALLED AN ELEMENT ID WORD, REPRESENTS ONE ELEMENT 
IN THE UNIVERSAL SEQUENCE, THE RELATIVE LOCATION OF AN ELEMENT IN 
THIS SFQUENCE IS CALLED ITS UNIVERSAL SEQUENCE NUMBER. DIFFERENT 

types of properties maybe assigned to an atomic set (hence to its 

ONLY ELEMENT IN THE SET) BY THE PROPERTY ASSIGNMENT OR CONDITIONAL 
'CREATE' STATEMENTS IN FGRAAL. THE PROPERTIES ASSOCIATED WITH AN 
ELEMENT ARE IMPLEMENTED AS A PROPERTY-RING WHERE ITS ELEMENT ID 
WORD IS A RING HEADER ANO PROPERTY BLOCKS ARE THE RING ELEMENTS. 

EACH ELEMENT ID WORD IS DIVIDED INTO TWO HALFWORD FIELDS. THE 
LEFT HALF OF THE ELEMENT ID WORD IS RESERVED FOR THE REPRESENTA- 
TION OF SETS IN COLUMN FORM (SEE SETS), THE RIGHT HALF OF THE 
ELEMENT ID WORD CONTAINS THE ADDRESS POINTER TO A LINKED LIST OF 
PROPERTY BLOCKS WHICH IS ASSOCIATED WITH THIS ELEMENT (IF THERE IS 
ONE), OR THE COMPLEMENT OF ITS UNIVERSAL SEQUENCE NUMBER TO SIGNI- 
FY THE NONEXISTENCE OF THE PROPERTY LIST. THE LINK FIELD OF THE 
LAST PROPERTY BLOCK ON THE PROPERTY LIST CONTAINS THE COMPLEMENT 
OF THE UNIVERSAL SEQUENCE NUMBER (WHICH POINTS INDIRECTLY T° THE 
ELEMENT ID WORD). THE COMPLEMENT IS NECESSARY TO SIGNIFY THE END 
OF A PROPERTY LIST, THE ELEMENT ID WORD TOGETHER WITH ITS ASSO- 
CIATED PROPERTY-LIST FORM A property-ring WHERE ELEMENT ID WORD IS 
ITS RING HEADER. FIGURE 3 SHOWS THE LAYOUT OF THE UNIVERSAL SE- 
QUENCE AND THE PROPERTY BLOCK LISTS. 
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UNIVERSAL SEQUENCE PROPERTY BLOCKS 


* * 

* * All 

************* ************* 

D(!) * * All * * * AI2 * * * -I * 

*——*■»——* ************* ************* 

* * 

* * AJ1 AJN 

************* ************* 

D(J) * * A Jl * * * AJ2 * . , , * * -J * 

*-••—*—-—* ************* ************* 

* * 

* * 

*——*——* 

D ( K ) * * -K * 

*——*——* 

* * 


FIGURE 3. UNIVERSAL SEQUENCE AND PROPERTY BLOCKS 
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3.2,2. SETS 

IN THE FGRAAL SYSTEM* THERE ARE THREE CATEGORIES OF SETS : 
EMPTY, ATOMIC, AND COMPOSITE. AN EMPTY SET IS A SET WHICH CON- 
TAINS NO ELEMENTS. AN ATO m IC SET IS A SET WHICH CONTAINS EXACTLY 
ONE ELEMENT. A COMPOSITE SET IS A SET WHICH IS THE UNION OF A 
NUMBER OF ATOMIC SETS. SETS, REGARDLESS OF THEIR CATEGORIES, ARE 
ALWAYS REPRESENTED WITH A SET HEADER. IF A SET IS EMPTY OR A- 
TOMIC, IT WILL PE REPRESENTED BY A SET HEADER ALONE. HOwEvER, IF 
A SET IS A COMPOSITE SET T H EN IT WILL BE REPRESENTED BY A S^T 
HEADER TOGETHER WITH A LIST OF SET ELEMENTS. THERE ARE TWO WAYS 
OF REPRESENTING A LIST OF SET ELEMENTS : (1) LINKED-BLOCK REPRE- 

SENTATION AND (2) COLUMN REPRESENTATION, A SET WHOSE ELEMENTS ARE 
REPRESENTED IN the linked-hlock FORM is sometimes called BLOCK 
SET, A SET REPRESENTED IN COLUMN FORM IS SOMETIMES CALLED COLUMN 
SET. 


THE SET HEADER OF A DECLARED SET IS A MEMORY WORD ASSIGNED BY 
THE COMPILER, WHICH IS LOCAL TO THE SUBPROGRAM WHERE IT HAD BEEN 
DECLARED. DURING THE PROGRAM EXECUTION, THE LOCATION OF THIS 
ASSIGNED MEMORY WORD (OR SET HEADER) BECOMES THE UNIQUE IDENTIFIER 
FOR THE ASSOCIATED, DECLARED SET. THE CONTENTS OF THE SET HEADER 
IDENTIFIES ITS ASSOCIATED SET AS J EMPTY, ATOMIC, OR COMPOSITE. 

FOR A COMPOSITE SET, THERE IS A LIST OF SET ELEMENTS ASSOCIATED 
WITH ITS SET HEADER. THE LINKED-BLOCK REPRESENTATION CONSISTS OF 
SINGLY LINKED 2-WORD BLOCKS WHICH CONTAIN THE SET ELEMENTS. THE 
COLUMN REPRESENTATION CONSISTS OF THREE MAJOR COMPONENTS : (1) 
assignment OF A COLUMN position IN the universal sequence TO THIS 

SET, (2) SETTING OF THE ASSIGNED COLUMN POSITION IN THE UNIVERSAL 
ELEMENT TO INDICATE THE ELEMENT IS ALSO CONTAINED IN THIS SET, AND 
(3) SUPPLEMENTARY INFORMATION CONCERNING THIS SET (E.G. NO OF 
ELEMENTS, FIRST AND LAST ELEMENT, ETC.). IF A SET IS EMPTY OR 
ATOMIC THEN IT is sufficient TO REPRESENT THE SET SOLELY By ITS 
ASSOCIATED SET HEADER, THE REPRESENTATIONS OF THESE SETS ARE 
GIVEN IN FIGURE 4. THE EMPTY SET IS REPRESENTED By A SET HEADER 
CONTAINING ALL 0»S. THE ATOMIC SET WITH THE ELEMENT WHOSE UNIVER- 
SAL SEQUENCE NUMBER is If is REPRESENTED by a set header which 
CONTAINS THE NUMBER I IN ITS RIGHT HALF. 
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EMPTY SET 

ATOMIC SET 
(ELEMENT I) 

FIGURE 4. EMPTY AND 


********************* 
* 0 * 
********************* 

********************* 

*o*i* 

********************* 

ATOMIC SET 


* FOR A COMPOSITE SET t THE SET HEADER IS DIVIDED INTO TwO HALF- 
WORD FIELDS. THE LEFT HALE CONTAINS THE ADDRESS POINTER TO THE 
LIST OF SET ELEMENTS BELONGING TO THIS SET# WHILE THE RIGHT HALF 
CONTAINS 0*S. THE LIST OF SET ELEMENTS REPRESENTED IN 
LINKED-BLOCK FORM ARE ARRANGED IN A SINGLELY-LINKED LIST CONSI- 
STING OF 2-WORD BLOCKS. E«CH 2-WORD BLOCK IS SUBDIVIDED INTO 4 
HALFWORD FIELDS* THE SECOND HALFWORD FIELD (OR THE RIGHj H*LF OF 
THE FIRST WORD) IS THE LINK FIELD WHICH CONTAINS ADDRESS POINTER 
TO THE NEXT 2-WURD BLOCK (IF THERE IS ONE) OR IT CONTAINS 0*S# IF 
THIS BLOCK IS THE LAST ONE ON THE LINKED LIST. THE REMAINING 
THREE FIELDS OF EACH BLOCK# CALLED ELEMENT FIELDS* CONTAIN SET 
ELEMENTS. THE SET ELEMENTS ARE ARRANGED IN THE ORDER OF THEIR 
UNIVERSAL SEQUENCE NUMBER, THE ELEMENTS WITH SMALLER UNIVERSAL 
SEQUENCE NUMBERS ARE STORED FIRST, THE SEQUENCE IN WHICH THE 
ELEMENT FIELDS ARE UTILIZED IS : FIRST #THIRD» FOURTH (OR EQUIVA- 
LENTLY* LEFT HALF OF THE FIRST WORD# LEFT HALF OF THE SECOND WORD, 
AND RIGHT HALF OF THE SECOND WORD). WHEN THE NUMBER OF ELEMENTS 
IN A SET IS NOT DIVISIBLE HY THREE, THE LAST BLOCK WILL CONTAIN 
UNUSED ELEMENT FIELD(S). THE UNUSED ELEMENT FIELDS ARE ZERO TO 
DENOTE THEIR EMPTINESS. AM EXAMPLE OF A BLOCK SET IS SHOWN IN 
FIGURE 5. 
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********************* 
SET HEADER * A1 * 0 * 

********************* 

********************* 
A1 * II * A2 * 

*- * — * 

* 12 * 13 * 

********************* 

********************* 
A2 * 14 * A3 * 

* — — * — — 

* 15 * 16 * 

********************* 


********************* 

AK * IN * 0 * 

*— — * * 

* 0 * 0 * 

********************* 

FIGURE 5. SET IN BLOCK FORM CONTAINING ELEMENTS 
II < 12 < ... < IN 


IF THE LIST OF SET ELEMENTS IS REPRESENTED IN COLUMN FORM, JHE 
LOCATION POINTED TO By ITS SET HEADER IS A 2-WORD BLOCK t CALLED 
THE SET INFOR BLOCK, WHICH CONTAINS INFORMATION CONCERNING ITS SET 
ELEMENTS. THE INFOR BLOCK IS SUBDIVIDED INTO 4 HALFWORD FIELDS *. 
(1) COUNT, (2) COLUMN INDEX, (3) FIRST AND (4) LAST. THE COUNT 
FIELD CONTAINS THE COMPLEMENT OF THE NUMBER OF TOTAL ELEMENTS IN 
THE SET, THE COMPLEMENT OF THE COUNT IS NECESSARY FOR THE PURPOSE 
OF DISTINGUISHING A COLUMN FORM REPRESENTATION FROM THE 
LINKED-BLOCK FORM REPRESENTATION, THE COLUMN INDEX FIELD CONTAINS 
AN INTEGER K, 0 < K < 16* WHICH INDICATES THE ASSIGNMENT OF COLUMN 
K IN THE UNIVERSAL SEQUENCE TO THIS SET, THE RIGHTMOST COLUMN OF 
THE LEFT HALF OF THE UNIVERSAL SEQUENCE IS DENOTED AS COLUMN 1, 
WHILE THE LEFTMOST COLUMN (OR SIGN BIT) IS DENOTED AS COLUMN 18 
(NOTE: THE LEFTMOST THREE COLUMN POSITIONS ARE NOT USED FOR RE- 

PRESENTING SETS). THE UNIVERSAL ELEMENT HAS ITS K ,TH COLUMN SET 
TO 1 IF AND ONLY IF IT ALSO BELONGS TO THE SET WHICH HAS COLUMN K 
ASSIGNED TO IT, THE FIRST AND LAST FIELDS CONTAIN THE UNIVERSAL 
SEQUENCE NUMBER OF THE FIRST AND LAST ELEMENT OF THE SET, RESPEC- 
TIVELY. 
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FOR EACH COLUMN K <0<K<16> THERE ARE TWO INFORMATION WORDS, 
Cl(K) AND C2(K)» ASSOCIATED WITH IT. THE ARRAyS Cl AND C2 CONTAIN 
INFORMATION FOR MANAGING THESE 15 COLUMNS. IF COLUMN K IS NOT 
ASSIGNED TO ANY SET, THE RIGHT HALF OF C 1 < K ) CONTAINS A COLUMN 
NUMBER WHICH IS THE NEXT F*£E (UNASSIGNED) COLUMN, OR IT CONTAINS 
0*S TO INDICATE THAT THIS IS THE LAST FREE COLUMN. THIS Is» IN 
FACT, A LINKED LIST OF AVAILABLE COLUMN SPACES, HOWEVER, IF CO- 
LUMN K IS CURRENTLY ASSIGNED TO A SET, THEN THESE TWO WORD CONTAIN 
INFORMATIONS AS FOLLOWS J <1) LEFT HALF OF Cl(K) CONTAINS AN AD- 
DRESS POINTER TO THE *INFOR BLOCK», <2) RIGHT HALF OF C1(K), 

CALLED TIME FIELD, CONTAINS A GLOBAL REFERENCE COUNT VALUE WHICH 
RANKS SETS BY THEIR LATEST USE, AND (3) C2<*> IS SUBDIVIDED INTO 
SIX SIXTHWORD FIELDS. THE FIRST SIXTHWORD OF C2(K) IS THE USE-TAG 
FIELD WHICH IS SET TO ONE WHENEVER THE SET IS USED IN THE CURRENT 
OPERATION, THE SECOND SIXTHWORD FIELD IS THE PROPERTY-TAG FIELD 
WHICH IS SET TO ONE IF THE SET IS REPRESENTING NODES(G) , ARCS<G), 
OR OOMAIN(P). I HE REMAINING 4 FIELDS OF C2(K) ARE NOT USED AND 
ARE AVAILABLE FOR FUTURE EXPANSION. AN EXAMPLE OF A COLUMN SET IS 
SHOWN IN FIGURE 6. 
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SET HEADER * -A * 0 * 

********************* 

********************* 
A * — N * J * 

*— — — — * — — * 

* FIRST * LAST * 
********************* 


********************* 
C1(J) * -A * TIME * 

*— — — -*———--* 
C2(«J) * U* P* * * 

********************* 


UNIVERSAL SEQUENCE 


« , , U , « ,21 

********************* 


* 

* 

* 

* 

* 

* 

* 

* 


0 

1 

1 

0 


* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 


FIGURE 6. SET IN COLUMN FORM 


THE RESULTS OF SET OPERATIONS MUST BE STORED IN COLUMN FORM (IN 
ORDER TO SPEED UP THE SET OPERATION), SINCE A TOTAL OF 15 COLUMN 
SETS MAY EXIST IN THE SYSTEM AT ANY ONE GIVEN TIME, A MANAGEMENT 
SCHEME IS REQUIRED TO TRANSFER SETS FROM COLUMN FORM TO BLOCK FORM 
IN ORDER TO MAKE COLUMN SPACE AVAILABLE, TO PREVENT THE TRANSFER 
OF A COLUMN SET WHICH IS CURRENTLY BEING USED THE USE-TAG FILED 
ASSOCIATED WITH THIS COLUMN SET IS CHECKED, TO PREVENT THE TRANS- 
FER OF THE SET OF NODES(G) OR ARCS(G) TO A BLOCK FORM (WHICH WOULD 
PRODUCE A SECOND LINKED LIST COPY OF THIS SET WHICH ALREADY EXISTS 
IN PROPERTY BLOCKS) THE PROPERTY-TAG FIELD ASSOCIATED WITH THIS 
COLUMN SET IS CHECKEO, 

DURING THE PROGRAM EXECUTION, A GLOBAL COUNTER IS MAINTAINED 
(FOR COLUMN SETS REFERENCES), WHENEVER ANY COLUMN SET (SAy WITH 
COLUMN INDEX K) IS REFERENCED (E.G, DURING SET OPERATIONS) THE 
GLOBAL COUNTER IS INCREMENTED BY ONE AND ITS UPDATED VALUE IS 
STORED INTO THE RIGHT HALF OF C1(K) (THE TIME FIELD), IF A RE- 
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QUEST FOR A COLUMN IS RECOGNIZED AND THERE IS NO FREE COLUMN AVAI- 
LABLE , THE COLUMN MANAGEMENT ROUTINE WILL SELECT ONE COLUMN SET 
AND TRANSFER IT TO BLOCK FORM, THE COLUMN SET WITH MINIMUM VALUE 
IN THE TIME FIELD AND WHOS* USE-TAG IS NOT SET TO ONE WILL BE 
SELECTED, THE COLUMN NUMBER ASSOCIATED WITH THIS SELECTED SET 
WILL THEN BE USED TO SATISE Y THE OUTSTANDING COLUMN REQUEST. 

3.2.3. STAQUES (LISTS) 

THE STAQUE (OR LIST) IS ONE OF THE NEW DATA STRUCTURES INTRO- 
DUCED IN THE FGKAAL. FROM THE STORAGE STRUCTURE POINT OF VIEW 
THERE ARE THREE DIFFERENT CATEGORIES OF STAQUES J (1) SINGLE WORD 
-LOGICAL , INTEGER AND REAL TYPES OF STAQUE » (2) DOUBLE WORD — 
DOUBLE PRECISION AND COMPLEX TYPES OF STAQUE. AND (3) VARIABLE 
SIZE — SET TYPE OF STAQUE. STAQUES. REGARDLESS OF THElR DATA 
TYPES. ARE ALWAYS REPRESENTED BY A STAQUE HEADER AND A CIRCULAR 
DOUBLY-LINKED LIST OF ITS STAQUE ELEMENTS. 

THE STAQUE HtAOER OF A UECLARED STAQUE IS A MEMORY WORD AS- 
SIGNED BY THE COMPILER. WHICH IS LOCAL TO THE SUBPROGRAM WHERE IT 
HAD BEEN DECLARED. DURING THE PROGRAM EXECUTION, THE ADDRESS OF 
THIS MEMORY WORD BECOMES THE UNIQUE IDENTIFIER OF THE ASSOCIATED 
STAQUE. THE STAQUE HEADER CONTAINS TWO HALFWORD FIELDS. THE LEFT 
HALF OF THE STAQUE HEADER CONTAINS THE ADDRESS POINTER TO THE 
LINKED LIST OF ITS STAQUE ELEMENTS. THE RIGHT HALF OF THE HEADER 
IS THE TYPE FIELD WHICH CONTAINS THE DATA TYPE IDENTIFIER oF ITS 
ASSOCIATED STAQUE. 

THE STAQUE ELEMENTS ARE ARRANGED IN THE FORM OF A CIRCULAR 
DOUBLY-LINKED LIST CONSISTING OF 2-WORD BLOCKS. THE FIRST WORD OF 
THE 2-WORD BLOCK IS DIVIDED INTO TWO HALFWORD LINK FIELDS. THE 
LEFT HALF IS THE BACKWARD LINK FIELD POINTING TO THE PREVIOUS 
BLOCK AND THE RIGHT HALF IS THE FORWARD LINK FIELD POINTING TO THE 
NEXT BLOCK. THE FIRST AND LAST BLOCKS OF THE STAQUE ELEMENT LIST 
ARE LINKED TOGETHER CIRCULARLY (I.E, THE BACKWARD POINTER OF THE 
FIRST POINTS TO THE LAST AND THE FORWARD POINTER OF THE LAST 
POINTS TO THE FIRST), THE SECOND WORD OF THE 2-WORD BLOCK CON- 
TAINS DIFFERENT INFORMATION DEPENDING ON THE DATA TYPE OF ITS 
STAQUE. FOR THE DATA TYPES IN THE SINGLE WORD CATEGORY. IT CON- 
TAINS THE DATA VALUE OF THE ELEMENT, FOR THE SET DATA TyPE, IT 
CONTAINS THE SET HEADER. FOR THE DATA TYPES IN THE DOUBLE WORD 
CATEGORY, IT CONTAINS THE ADDRESS POINTER TO ANOTHER 2-WORD BLOCK 
WHICH, IN TURN, CONTAINS T W E DATA VALUES OF THE ELEMENT. THE 
REPRESENTATION OF DIFFERENT CATEGORIES OF THE STAQUES ARE GIVEN IN 
FIGURE 7, 
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LOGICAL, INTEGER# REAL TYPES OF LISTS? 


LIST HEAOER 
************* 
* K1 * TYPE* 
************* 


M 

************* 

* KN * K2 * 
*——*——* 

* value * 
************* 


K2 

************* 

* K1 * K3 * 
*——*——* 

* VALUE * 
************* 


KN 

************* 

* kn-i* K 1 * 
*——*——♦ 

* VALUE * 
************* 


SET TYPE OF LISTS: 


LIST HEADER 
************* 
* K1 * TYPE* 
************* 


K 1 

************* 
* KN * K2 * 
*.....*....-* 

♦SET HEADER ♦ 
************* 


K2 

************* 

* K 1 * K3 * 

* *- -* 

♦SET HEADER * 
************* 


KN 

************* 
* KN-J* k 1 * 
*——*——-♦ 
♦set HEADER * 
************* 


THE SET HEADERS ARE SIMILAR TO THE SET HEADERS 
OF THE NORMAL SETS EXCEPT NO COLUMN FORM IS USED. 


DOUBLE PRECISION AND COMPLEX TYPES OF LISTS.* 


LIST HEADER 

************* 
* K1 ♦ TYPE+ 

K 1 

************* 

* KN * K2 * 

K2 

************* 

♦ K 1 ♦ K3 * • * . 

KN 

************* 
* kn-i* ki ♦ 

************* 

* 0 * 11 * 
************* 

* 0 ♦ 12 ♦ 
************* 

* 0 ♦ IN ♦ 

************* 


11 

************* 
* VALUE 1 * 

12 

************* 
♦ VALUE 1 

IN 

************* 
* VALUE 1 * 


* VALUE 2 * 

************* 

♦ VALUE 2 ♦ 

************* 

* VALUE 2 * 

************* 

FIGURE 7. 

REPRESENTATIONS of staques 
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3,2.4. PROPERTIES 

THE PROPERTY IS ANOTHER NEW DATA STRUCTURE INTRODUCED IN THE 
FGRAAL SYSTEM. FROM THE storage STRUCTURE POINT OF VIEW THERE ARE 
THREE DIFFERENT CATEGORIES OF PROPERTIES (AS IT IS IN THE STAOUE)*. 

(1) SINGLE WORD — LOGICAL » INTEGER AND REAL TYPES OF PROPERTY, 

(2) DOUBLE WORD — DOUBLE PRECISION AND COMPLEX TYPES OF PROPERTY, 
AND (3) VARIABLE SIZE — SET TYPE OF PROPERTY. PROPERTIES, REGAR- 
DLESS OF THEIR DATA TYPES, ARE ALWAYS REPRESENTED BY A PROPERTY 
HEADER, PROPERTY INFOR BLOCK AND PROPERTY VALUE BLOCK(S). 

THE PROPERTY HEADER OF A DECLARED PROPERTY IS A MEMORY WORD 
ASSIGNED BY THE COMPILER (AS IT IS WITH THE SET HEADER), DURING 
THE PROGRAM EXECUTION, THE ABSOLUTE ADDRESS OF THIS ASSIGNED ME- 
MORY WORD BECOMES THE UNIQUE IDENTIFIER OF THE ASSOCIATED PROPER- 
TY. THE PROPERTY HEADER CONTAINS TWO HALFWORD FIELDS. THE RIGHT 
HALF OF THE PROPERTY HEADER IS THE TYPE FIELD WHICH CONTAINS THE 

data type identifier OF its associated property, the left HALF OF 

THE PROPERTY HEADER IS THE POINTER FIELD WHICH CONTAINS THE COMP- 
LEMENT OF THE ABSOLUTE ADDRESS OF A 2-WORD BLOCK CALLED PROPERTY 
INFOR BLOCK. THE COMPLEMENT OF THE ADDRESS IS USED IN ORDER TO 
DISTINGUISH A PROPERTY HEADER FROM A SET HEADER. THE PROPERTY 
INFOR BLOCK POINTED TO BY THE PROPERTY HEADER HAS THE SAME FORMAT 
AS THAT OF A COLUMN SET INFOR BLOCK (SEE SETS), EXECEPT THAT THE 
COLUMN INDEX FIELD IS ZERO UNLESS THE DOMAIN SET IS REPRESENTED BY 
A COLUMN SET. 

THE ASSIGNMENT OF PROPERTIES TO AN ATOMIC SET CAN BE REALIZED 
THROUGH THE EXECUTION OF PROPERTY ASSIGNMENT OR CONDITIONAL 
♦CREATE* STATEMENTS. THE PROPERTY VALUE(S) THUS ASSIGNED T® AN 
(UNIVERSAL) ELEMENT IS STORED IN A PROPERTY BLOCK WHICH IS LINKED 
INTO THE PROPERTY-RING ASSOCIATED WITH THIS ELEMENT (SEE UNIVERSAL 
SEQUENCE AND PROPERTY BLOCKS), THE PROPERTY BLOCK CONSISTS OF TWO 
CONTIGUOUS MEMORY WORDS, THE FIRST MEMORY WORD IS SUBDIVIDED INTO 
TWO HALFWORD FIELDS, THE LEFT HALF IS THE PROPERTY IDENTIFICATION 
FIELD WHICH CONTAINS THE UNIQUE IDENTIFIER, THE ADDRESS OF THE 
PROPERTY HEADER, OF THE PROPERTY WITH WHICH THIS BLOCK Is ASSOCIA- 
TED. THE RIGHT HALF OF THE FIRST WORD IS THE LINK FIELD WHICH IS 
USED IN THE LINKAGE OF THE PROPERTY-RING (SEE UNIVERSAL SEQUENCE 
AND PROPERTY BLOCK), THE SECOND WORD OF THE PROPERTY BLOCK CON- 
TAINS DIFFERENT INFORMATION DEPENDING ON THE DATA TYPE OF THE 
PROPERTY (THIS IS IN THE SAME FORMAT AS THAT OF THE STAQuE). FOR 
THE DATA TYPES IN THE SINGLE WORD CATEGORY, IT CONTAINS THE DATA 
VALUE OF THE PROPERTY. FOB THE SET DATA TYPE, IT CONTAINS THE SET 
HEADER. FOR THE DATA TYPES IN THE DOUBLE WORD CATEGORY, IT CON- 
TAINS THE ADDRESS POINTER TO ANOTHER 2-WORD BLOCK WHICH, IN TURN, 
CONTAINS THE DATA VALUES OF THE PROPERTY. THE REPRESENTATIONS OF 
PROPERTIES ARE GIVEN IN FIGURE 8. 



L(P)=PROP. HEADER 

*************** 

* -A * TYPE * 

*************** 


LOGICAL, INTEGER AND 
REAL TYPES 


set types 


(SET IN BLOCK FORM 


DOUBLE PRECISION AND 
COMPLEX TYPES 


a=information block 

*************** 

* -N * 0 * 

* FIRST* LAST * 

*************** 

PROP, blocks of elements 

********************* 

* HP) * link * 

*---- * 

* value * 

********************* 


********************* 

* L (P ) * LINK * 

*«• — * — « * 

* SET HEADER * 

********************* 

********************* 
A1 * Jl * A2 * 

* J2 * U3 * 

********************* 

• • • • • 

********************* 

* JK-2 * 0 * 

-* 

* JK-1 * JK * 

********************* 


********************* 

* L (P ) * LINK * 

* 0 * A * 

********************* 

********************* 

A * VALUE i * 

* «•-•» * 

* VALUE 2 * 

********************* 


FIGURE 8, REPRESENTATION OF PROPERTY BLOCKS, 
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3.2,5. GRAPH STRUCTURES 

GRAPH STRUCTURES ARE HANDLED SIMILARLY TO PROPERTIES. WITH EACH 
DECLARED GRAPH, A GRAPH HEADER CONSISTING OF 2 OR 3 WORDS IS AS- 
SIGNED BY THE COMPILER. THE FIRST OF THESE WORDS IS THE 6ENERAL 
HEADER OF THE GRAPH, THE SECOND AND THIRD WORDS ARE THE HEADERS 
FOR THE NODES AND ARCS OF THE GRAPH, RESPECTIVELY. WHEN AN ELEMENT 
IS ASSIGNED TO THE GRAPH AS A NODE THEN IT HAS A PROPERTY BLOCK 
WHICH CONTAINS THE ADDRESS OF THE NODE HEADER OF THE GRAPH AS 
PROPERTY IDENTIFIER. IF AN ELEMENT IS AN ARC THEN IT USES THE 
ADDRESS OF THE ARC HEADER OF THE GRAPH, AN ELEMENT MAY NOT BE 
ASSIGNED TO THE SAME GRAPH AS BOTH NODE AND ARC, 


L (G) 

L ( G ) +1 
L ( G ) +2 


************************************** 

* -0 * T1 * T2 * 3 * 

* -NA * 1 * 

* -AA * 2 * 

***************************41********** 


NA 

***************** 

* - N * 0 * 

*——-»— *————* 

* FIRST* LAST * 
***************** 


AA 

***************** 

* - M * 0 * 

*———*—•——* 

* FIRST* LAST * 
***************** 


Tl = 0 FOR NODE GRAPH 

1 FOR NODE/ARC GRAPH 
N = NUMBER OF NODES 
M = NUMBER OF ARCS 


T2 = 0 FOR UNDIRECTED GRAPH 

1 FOR DIRECTED GRAPH 

THE INTEGERS 3,1 AND 2 IN L(G),L(G)+i AND 
L (G) +2, RESPECTIVELY, ARE USED AS 
IDENTIFIERS. 


FIGURE 9, GRAPH HEADER WITH NODE AND ARC INFORMATION BLOCKS 
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THE PROPERTY BLOCKS ASSIGNEO TO THE ELEMENTS AS NODES OR ARCS 
OF THE GRAPH CONSIST OF ONE SLOCK (2 WORDS). THE LEFT HAL? OF 
THF FIRST WORD CONTAINS THE PROPERTY IDENTIFIER, I.E, THE ADDRESS 
OF THE NODE OR ARC HEADER. THE RIGHT HALF OF THE FIRST WORD CON- 
TAINS THE LINK TO THE NEXT PROPERTY BLOCK. THE SECOND WORD OF THE 
PROPERTY BLOCK CONTAINS THE STRUCTURAL INFORMATION, THE STRUC- 
TURAL INFORMATION OF THE GRAPH IS STORED BY ABSOLUTE ADDRESS 
LINKS. FOR EACH NODE OF A GRAPH, THE SETS CONSISTING OF THE NEGA- 
TIVE COBOUNDARY AND POSITIVE COBOUNDARY OF THE NODE IS REPRESENTED 
BY A LINK STRUCTURE. THE LEFT HALF OF THE SECOND WORD OF THE 
PROPERTY BLOCK IS USED TO LINK THE NEGATIVE, THE RIGHT HALF WORD 
IS USED TO LINK THE POSITIVE COBOUNDARY SETS. THE LINKAGE IS CIR- 
CULAR, I.E. THE LAST ARC IS LINKED BACK TO THE NODE. IF A NODE HAS 
EMPTY COBOUNDARY (POSITIVE OR NEGATIVE) THEN IT IS LINKED TO IT- 
SELF. UNDIRECTED GRAPHS USE THE DIRECTION USED IN THE ASSIGN STA- 
TEMENT. NODE GRAPHS USE INDEPENDENT 2-WORD BLOCKS FOR ARCS, I.E. 
THESE BLOCKS ARE NOT LINKED TO ELEMENTS IN THE UNIVERSAL SEQUENCE 
AS PROPERTY BLOCKS. 


NODE K 


ARC J1 


ARC JK 


PROP, BLOCKS OF ELEMENTS 
K, Jl, . . . , UK 
********************* 

B * L(G)4-1 * LINK * 

*————*————* 

* AN1 * API * 

********************* 

********************* 

AN1 * L(G)+2 * LINK * 

* * * 

* AN2 * ... * 

********************* 


********************* 
ANK * L ( G ) +2 * LINK * 

* B * , • . * 

********************* 


FIGURE 10, GRAPH STRUCTURE LINKAGE. 

THE NEGATIVE COBOUNDARY OF NODE K. 
L(G) = LOCATION OF THE GRAPH HEADER 
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3.2.6. TYPE ASSIGNMENTS. 

THE HEADERS OF LISTS# PROPERTIES AND GRAPHS CONTAIN A FIELD 
CONSISTING OF A TYPE CODE. THIS TYPE CODE IS AN INTEGER AS FOL- 
LOWS: 

0 SET 

1 NODES 

2 ARCS 

3 GRAPH 

4 LOGICAL 

5 INTEGER 

6 REAL 

7 DOUBLE PRECISION 
0 COMPLEX 



3-19 


3.2,7. STRUCTURE OF HEADERS 

THE FOLLOWING TABLE SUMMARIZES THE CONTENTS OF THE HEADERS! 

*************************************** 

* 11111111*112222222222333333* 
*012345678901234567*890123456789012345* 
*************************************** 

* COLUMN SET BITS * ADDRESS OF PROP. * 

* * BLOCK OR COMPL, * 

* * OF THE ELEMENT * 

* 100000000000000000 * * 


element 

VALID 


REMOVED 


SET 

EMPTY 

** 

* 

ZERO 

-*■ 

* 


ZERO 


.* 

* 

ATOMIC 

* 

ZERO 

* 


ELEMENT 


* 

BLOCK 

* 

ADDRESS OF THE 

♦ 


ZERO 


* 


* 

FIRST BLOCK 

* 




* 

COLUMN 

* 

ADDRESS OF THE 

* 


ZERO 


* 

l ? QT 

* 

INFO. BLOCK 

* 




* 

U I 1 






— • 


SET 

* 

ADDRESS 

* 


0 


* 

LOGICAL 

* 

OF 

* 


4 


* 

integer 

* 

THE 

* 


5 


* 

REAL 

* 

FIRST 

* 


6 


* 

DBL.PR. 

* 

ELEMENT 

* 


7 


* 

COMPLEX 

PBfiDFBT Y 

♦ 

BLOCK 

* 


8 


♦ 

SET 

♦-ADDRESS 

* 


0 


* 

LOGICAL 

* 

OF THE 

* 


4 


* 

integer 

* 

PROPERTY 

* 


5 


* 

REAL 

* 

INFORMATION 

* 


6 


* 

DBL.PR. 

* 

BLOCK 

* 


7 


* 

COMPLEX 
ca A du 

* 


* 


8 


♦ 
M ft 

vIr Hrn 

GRAPH 

* 

-0 

* 

X 

Y 

3 

* 

NODES 

♦-ADDRESS OF INFO, 

* 



1 

* 

ARCS 

TAJCrrt ri nCK 

* 

BLOCK 

* 



2 

♦ 

_ £ 

k nr s/ • 

FIRST WORD 

*— NO , OF ELEMENTS 

♦ 

ZERO 

OR COLUMN 

* 


* 


* 

NUMBER IF IN 

SET* 

SECOND W. 

* 

first element 

* 

LAST 

ELEMENT 


* 


*************************************** 


notes: 

X = ZERO OR ONE FOR NODE OR NODE/ ARC GRAPH, RESPECTIVELY. 
Y = ZERO OR ONE FOR UNDIRECTED OR DIRECTED GRAPH, RESP. 

- (MINUS) INDICATES COMPLEMENT IN THE PROPER HALF WORD, 


s- 
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3.3, REPRESENTATION OF A CONTRACTED GRAPH 


CONTRACTION OF A SUBGRAPH CORRESPONDING TO THE GIVEN SET OF 
NODES IS ACCOMPLISHED IN TWO STEPS! 

STEP 1. 

A NEW NODE, N, IS CREATED WHICH WILL CORRESPOND TO THE CONTRAC- 
TED subgraph, all nodes involved in the contraction including 

THOSE NODES WHICH WERE PART OF PREVIOUS CONTRACTION* ARE ASSIGNED 
NEW PROPERTY BLOCKS. CALL THESE NODES N1 ,N2* . » • »NM # THE OLD PRO- 
PERTY BLOCKS ARE LINKED TO THE NEW BLOCKS BY STORING THEIR NEGA- 
TIVE ADDRESSES IN THE LEFT HALVES OF THE FIRST WORD OF THE NEW 
PROPERTY BLOCKS? 


NEW PROPERTY BLOCK OF NI 

******* *********** ******* 

* « — * — > * -A * t *- y * * 

-*--——* *--—*--—* *_„•-*- 

* - * * * * * * 

******* *********** ******* 


A *********** 

* * * OLD PROPERTY BLOCK OF Nl 

* * * (CONTENTS UNCHANGED) 

* * * 

*********** 

STEP 2. 

THE ARCS IN EACH ORIGINAL POSITIVE AND NEGATIVE COBOUNDARY 
CYCLE ARE REARRANGED SO THAT THE ARCS INTERNAL TO THE CONTRACTED 
SUBGRAPH PRECEDE THE ARCS CONNECTING THE SUBGRAPH WITH THE REST OF 
THE GRAPH, THE LINKAGES IN THE SECOND WORD OF THE NEWLY CREATED 
PROPERTY BLOCKS » ASSOCIATED WITH THE NODES N,Nl,..,,NM Are DEFINED 

as follows: 

1, THE LEFT FIELD OF THE SECOND WORD (NCOB POINTER) OF N POINTS 
TO THE FIRST NON-INTERNAL ARC OF THE NCOB OF Nl, IF NO 
NON-INTERNAL ARCS EXIST, THEN IT POINTS TO Nl, 

2, FOR NI <1<I<M-1), THE LEFT FIELD OF THE SECOND WORD OF NI 
POINTS TO THE FIRST NON-INTERNAL ARC OF THE NCOB OF NI*1, IF NO 
NON-INTERNAL ARCS EXIST, THEN IT POINTS TO NIU. 

3, THE LEFT HALF OF THE SECOND WORD OF NM POINTS TO N, 

A CORRESPONDING LINKAGE STRUCTURE IS DEFINED FOR PCoB OF N 
USING THE RIGHT FIELDS OF THE SECOND WORD OF THE NOOES. 


I 
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THE LINKAGE STRUCTURE IS ILLUSTRATED BELOW FOR A 2-NODE CONTRA 
CTIONJ 



GIVES THE FOLLOWING LINKAGE (ONLY THE SECOND WORDS OF THE BLOCKS 
ARE SHOWN) .* 


N 

* * * 

*-—*—-* 

* Al * A4 * 

*********** 

N£ 

* * * 

*-—*——* 
NEW PROP, BLOCK * N * N * 

*********** 

* * * 

*——*——* 
OLD PROP, BLOCK * A6 * A 9 * 

*********** 


Al 

A 3= 

A6 

A6=A3 


A9 


* * * 

* 

* * 

* . * 

* 

* 

* * 

♦ •«—•♦——* 

*— 

-—*——* 

*— •*— 



-*-.—* 

* A2 * * 

* 

* A4 * 

* A? * 

* 

* 

* AlO* 

*********** 

*********** 

& 

*********** 

*********** 

A2 

A4 


A7 


AlO 


* * * 

* 

* * 

* * 

* 

* 

* * 


*— 


*—•*•» 

— * 

*— 


* N1 * * 

* 

* A5 * 

* AS * 

* 

* 

* N2 * 

*********** 

*********** 

*********** 

*********** 


AS 


A8 





* 

* * 

* * 

* 




*— 


*-—-*— 

— * 




* 

* N1 * 

* N2 * 

* 




*********** 

*********** 




CREATED NEW NODE 
N1 

* * * 

*——*——* 

* A7 * A^ * 
*********** 

* * * 

*- — -*— — * 
* Al * A3 * 
*********** 
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4. EXAMPLE OP A GRAPH STRUCTURE 


IN THIS EXAMPLE, IT IS ASSUMED THAT 10 ELEMENTS WERE CREATED. 
THE ELEMENTS HAVE AN ALPHANUMERIC PROPERTY WITH *3oO» AS THE PRO- 
PERTY IDENTIFIER (ADDRESS OF THE PROPERTY HEADER). FURTHERMORE THE 
ELEMENTS WERE ASSIGNED TO A GRAPH AS NODES AND ARCS SUCH THAT THE 
GRAPH IDENTIFIER IS *500*, THUS *501* AND *502* CORRESPONDS TO THE 
NODE AND ARC IDENTIFIER, RESPECTIVELY. THE GRAPH HAS THE FOLLOWING 
STRUCTURE: 



THE FOLLOWING FIGURE GIVES THE STORAGE STRUCTURE OF THE ABOVE 
example: 

D ( 1 ) 7998 5998 

*************** *************** *************** 

* * 7998 * * 300 * 5998 * * 501 * -1 * 

*************** *——*——•* *——*——* 

* »A» * * 5988 * 5998 * 

*************** *************** 

7996 5996 

*************** *************** 

* 300 * 5996 * * 501 * -2 * 

* »B’ * * 5986 * 5988 * 

*************** *************** 

D ( 3 ) 7994 5994 

*************** *************** *************** 

* * 7994 * * 300 * 5994 * * 501 * -3 * 

*************** *-——*——* *--—-*—-—* 

* *C» * * 5982 * 5984 * 

*************** *************** 


D ( 2 ) 

*************** 
* * 799b * 

*************** 





D<4) 

*************** 
* * 7992 * 

*************** 


D<5> 

*************** 
* * 7990 * 

*************** 


0 ( 6 ) 

*************** 
* * 79B« * 

*************** 


D ( 7 ) 

*************** 
* * 798b * 

*************** 


0 ( 8 ) 

*************** 
* * 7989 * 

*************** 


0(9) 

*************** 
* * 7982 * 

*************** 


D ( 10 ) 

*************** 
* * 7980 * 

*************** 


7992 

*************** 

* 300 * 5992 * 

* »D» * 

*************** 

7990 

*************** 

* 300 * 5990 * 
*— — —*—-—* 

* *E* * 

*************** 

7988 

*************** 

* 300 * 5988 * 

*->——*«»——* 

* »V* * 

*************** 

7986 

*************** 

* 300 * 5986 * 

*•———•*«•——«»* 

* »X» * 

*************** 

7984 

*************** 

* 300 * 5984 * 
*——*——* 

* * Y * * 

*************** 

7982 

*************** 

* 300 * 5982 * 
*——*——•* 

* «Z» * 

*************** 

7980 

*************** 

* 300 * 5980 * 

* »W« * 

*************** 


5992 

*************** 

* 501 * -4 * 

* 

* 5984 * 5986 * 

*************** 

5990 

*************** 

* 501 * -5 * 

*.»«.■»••«•«■*—«•«»•«»«»* 

* 5990 * 5980 * 

*************** 

5988 

*************** 

* 502 * -6 * 

* 5998 * 5982 * 

*************** 

5986 

*************** 

* 502 * -7 * 

*•-—-•**--——* 

* 5996 * 5992 * 

*************** 

5984 

*************** 

* 502 * -8 * 

*——•-*——* 

* 5980 * 5994 * 

*************** 

5982 

*************** 

* 502 * -9 * 

* 5994 * 5996 * 

*************** 

5980 

*************** 

* 502 * -10 * 

*——*——* 

* 5992 * 5990 * 

*************** 
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ASSUMING THE GRAPH IS CONTRACTED, SUCH THAT THE NODES B, C AND 
D WERE CONTRACTED INTO A NEW NODE WITH ALPHANUMERIC PROPERTY 
•BCD**. 



THE CHANGED STORAGE STRUCTURE IS AS FOLLOWS: 


0 ( 1 ) 

*************** 
* * 7990 * 

*************** 


D ( 2 ) 

*************** 
* * 799b * 

*************** 


D ( 3 ) 

*************** 
* * 7999 * 

*************** 


7998 

*************** 

* 300 * 5998 * 
*——*———* 

* ♦ A ♦ * 

*************** 

7996 

*************** 

* 300 * 5996 * 
*———*——* 

* * 8 * * 

*************** 


7994 

*************** 

* 300 * 5994 * 

* * — - — -* 

* 'C* * 

*************** 


5998 

*************** 

* 501 * -1 * 

* 5988 * 5998 * 

*************** 

5996 

*************** 
*-5976 * -2 * 

* 5994 * 5994 * 
*************** 

5976 

*************** 

* 501 * -2 * 

* 5986 * 59fl2 * 

*************** 

5994 

*************** 
*-5974 * -3 * 

*——*——* 

* 5980 * 5992 * 
*************** 

5974 

*************** 

* 501 * -3 * 

*—----*—«•—* 

* 5982 * 5984 * 
*************** 
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D ( 4 ) 

*************** 

* * 7992 * 

*************** 


0 ( 5 ) 

*************** 

* * 7990 * 

*************** 


D(6) 

*************** 

* * 7980 * 

*************** 


0(7) 

*************** 

* * 7980 * 

*************** 


0 ( 8 ) 

*************** 

* * 7984 * 

*************** 


0(9) 

*************** 

* * 7982 * 

*************** 


7992 

*************** 

* 300 * 5992 * 
*——*«.--—* 

* *D ♦ * 

*************** 


7990 

*************** 

* 300 * 5990 * 

*——*——* 

* »E» * 

*************** 

7988 

*************** 

* 300 * 5988 * 

*——«»*«•——* 

* »V» * 

*************** 

7986 

*************** 

* 300 * 5986 * 
*——*——* 

* »X* * 

*************** 

7984 

*************** 

* 300 * 5984 * 

*——->*—-—* 

* *Y* * 

*************** 

7982 

*************** 

* 300 * 5982 * 
*-——*——* 

* 7 ' * 

*************** 


5992 

*************** 

*-5972 * -4 * 

*——*———* 

* 5978 * 5978 * 

*************** 

5972 

*************** 

* 501 * —4 * 

*——*——* 

* 5984 * 5986 * 

*************** 

5990 

*************** 

* 501 * -5 * 

*——*——* 

* 5990 * 5980 * 

*************** 

5988 

*************** 

* 502 * -6 * 
*——*—•—* 

* 5998 * 5982 * 

*************** 

5986 

*************** 

* 502 * -7 * 

*——*——* 

* 5996 * 5992 * 

*************** 

5984 

*************** 

* 502 * -8 * 

* 5980 * 5994 * 

*************** 

5982 

*************** 

* 502 * -9 * 

*——*——* 

* 5994 * 5996 * 

*************** 



D(10) 

*************** 

* * 7980 * 

*************** 


D ( 11 ) 

*************** 
* * 7978 * 

*************** 


7980 

*************** 

* 300 * 5980 * 
*———-*——* 

* •«* * 

*************** 

7978 

*************** 

* 300 * 5978 * 
*———*———* 

* ’BCD’ * 

*************** 


5980 

*************** 

* 502 * -10 * 
*——*—-.—* 

* 5992 * 5990 * 
*************** 

5978 

*************** 

* 501 * -11 * 
*——*——* 

* 5996 * 5988 * 
*************** 
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THE FGRAAL COMPILER 


THE FGRAAL COMPILER TRANSLATES FGRAAL SOURCE PROGRAMS INTO OBJECT 
CODE. TO SIMPLIFY ITS USE* IT ACCEPTS THE SAME INPUT (SYMBOLIC 
ELEMENTS OR CARDS), PRODUCES THE SAME OUTPUT (RELOCATABLE BINARY 
ELEMENTS) AND IS CALLED IN A SIMILAR WAY AS ALL LANGUAGE PROCES- 
SORS ON THE UNIVAC U08 UNDER EXEC 8. THE FOLLOWING SECTIONS 
DESCRIBE THE UNIVERSITY OF MARYLAND RALPH COMPILER, AND THE MODI- 
FICATIONS NECESSARY TO EXTEND IT TO FGRAAL. 

FGRAAL IS IMBEDDED INTO FORTRAN, AND MOST OF THE SYNTACTIC 
RULES OF FORTRAN APPLY ALSO TO THE EXTENSION, THE STATEMENTS MUST 
BE ANALYZED FAIRLY THOROUGHLY TO DETERMINE THEIR NATURE. FOR 
INSTANCE, THE EXPRESSION *A(I)« CAN BE A FORTRAN FUNCTION CALL, A 
REFERENCE TO A SUBSCRIPTED FORTRAN VARIABLE* OR A REFERENCE TO A 
PROPERTY IN FGRAAL, DEPENDING ONLY ON THE WAY IN WHICH »A* AND *1* 
ARE DECLARED. ANY OF THESE CAN OCCUR IN A FORTRAN EXPRESSION. 
SIMILARLY, THE STATEMENT *S=T* MUST BE TRANSLATED DIFFERENTLY WHEN 
*S* AND »T» ARE SETS OR LISTS THAN WHEN THEY ARE NORMAL FORTRAN 
VARIABLES. 

FOR THIS REASON, AND BECAUSE THE UNIVERSITY OF MARYLAND RALPH 

compiler was readily available and could be modified easily TO 

ACCEPT THE NEW FEATURES, WF CHOSE TO MODIFY IT FOR OUR PURPOSE. 

WRITING A PREPROCESSOR INSTEAD, WHICH WOULD TRANSLATE FGRAAL 
INTO FORTRAN (WITH APPROPRIATE SUBROUTINE CALLS SUBSTITUTED FOR 
FGRAAL CONSTRUCTS) WOULD HAVE REQUIRED A VERY THOROUGH ANALYSIS OF 
THE PROGRAM, DUPLICATING MUCH OF THE WORK OF A COMPILER, 

THE OTHER EXTREME* WRITING A COMPILER FROM SCRATCH* WOULD 
HAVE HAD THE ADVANTAGE OF BEING ABLE TO CONTROL THE METHODS OF 
COMPILATION MORE COMPLETELY* BUT THE AMOUNT OF WORK INVOLVED WOULD 
HAVE BEEN GREAT* AND MUCH OF IT WOULD HAVE BEEN A DUPLICATION OF 
FUNCTIONS OF ALREADY EXISTING COMPILERS. 


5,1. THE RALPH COMPILER 


the FOLLOWING is A BRIEF DESCRIPTION OF RALPH, WHICH CANNOT 
DO FULL JUSTICE TO ALL ITS FEATURES, 

RALPH (REENTRANT ALGORITHMIC LANGUAGE PROCESSOR) IS A FOUR 
PASS COMPILER, DESIGNED TO COMPILE PROGRAMS QUICKLY* WITH LESS 
EXTENSIVE OPTIMIZATION THAN THE UNIVAC FORTRAN V COMPILER, 

PASS ONE READS THE SOUHCE PROGRAM AND TRANSLATES IT TO INTER- 
MEDIATE OBJECT CODE (TRIPLES). AT THE SAME TIME IT BUILDS THE 
SYMBOL TABLES, THE STATEMENT RECOGNIZER IS TABLE DRIVEN, THE 
VARIOUS STATEMENTS ARE PROCESSED IN INDIVIDUAL PARTS OF THE COMPI- 
LER, WHICH USE A COMMON POOL OF SUBROUTINES. THESE INCLUDE A 
SYNTAX SCANNER, AN EXPRESSION COMPILER, THE SYMBOL TABLE ROUTINES* 
AND A ROUTINE FOR OUTPUTTING TRIPLES TO A SCRATCH FILE, WHICH DOES 
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all optimization. 

PASS TWO CLEANS UP THE SYMBOL TABLE, PROCESSES EQUIVALENCE 
STATEMENTS, AND ALLOCATES MAT A STORAGE, 

PASS THREE CONVERTS THE INTERMEDIATE OBJECT CODE TO MACHINE 
INSTRUCTIONS, SOME OF WHICH MAY NOT YET BE COMPLETE. IT READS THE 
TRIPLES, DETERMINES THE MO'>ES OF THE OPERANDS, AND FINDS A TABLE 
ENTRY FOR THAT PARTICULAR COMBINATION. FROM THAT IT DETERMINES 
THE mode of the result# if any, and finds the DEFINITION SEQUENCE 
FOR THE TRIPLE, THE DEFINITION SEQUENCES CONTAIN PSEUDO INSTRUC- 
TIONS (FOR REGISTER ALLOCATION, TRANSFER OF CONTROL# DEFINITION OF 
REGISTER CONTENTS# ETC.) AS WELL AS MACHINE INSTRUCTIONS, WHOSE 
REGISTER AND OPERAND FIELDS ARE FILLED WITH SPECIAL CODES. AN 
INTERPRETER ANALYZES THESE, REPLACES THE FIELDS BY REAL ADDRESSES, 
AND WRITES THESE, WITH ANY RELOCATION INFORMATION, TO A SCRATCH 
FILE. INCOMPLETE ADDRESSES (FORWARD REFERENCES TO LABELS, ETC.) 
ARE flagged. 

PASS FOUR READS THE OUTPUT FROM PASS THREE, MODIFIES THE IN- 
COMPLETE INSTRUCTIONS, AND WRITES THE FINISHED RELOCATABLE ELE- 
MENT. IT ALSO PRINTS AN OBJECT CODE LISTING WHEN REQUESTED. 


5.2. MODIFICATIONS TO RALPH 


THESE FALL INTO TWO GROUPS: SOME ARE LANGUAGE RELATED# AND 

WOULD HAVE TO BE TREATED SIMILARLY IN MOST IMPLEMENTATIONS# OTHERS 
ARE DIRECTLY RELATED TO THE COMPILER WHICH IS BEING MODIFIED. 

5.2.1. DATA TYPES 

THERE are SEVERAL new VARIABLE TYPES: SETS, STAQuES, proper- 

ties, and graphs, sets, STAQUES, and properties occupy single 
WORDS IN THE PROGRAMS, WHICH MAY POINT INTO DYNAMIC STORAGE AT 
EXECUTION TIME. GRAPHS CONSIST OF THREE WOROS, ONE HAS INFORMA- 
TION ABOUT THE GRAPH, THE OTHER TWO ABOUT THE ARCS AND NODES, 
RESPECTIVELY, SET IS A VARIABLE TYPE, LIKE INTEGER OR REAL. 
STAQUES AND PROPERTIES HAVE ONE OF THE TYPES INTEGER# REAL, DOUBLE 
PRECISION, COMPLEX, LOGICAL, OR SET ASSOCIATED WITH THEM, 

MOST OF THESE NEW VARIABLES REQUIRE THAT AN INITIAL VALUE IS 
COMPILED FOR THEM. THIS IS DONE AT THE END OF PASS THREE, USING 
THE INFORMATION IN THE SYMBOL TABLE. 

5.2.2. IMPLEMENTATION OP NEW STATEMENTS 

DECLARATION STATEMENTS ARE HANDLED IN THE SAME WAY AS FORTRAN 
DECLARATIONS, THE SYMBOL IS ENTERED INTO THE MODE TABLE, AND, IF 
NECESSARY, INTO THE DIMENSION TABLE. 

ASSIGN, DETACH, AND REMOVE STATEMENTS ARE TRANSLATED INTO 
CALLS TO APPROPRIATE SUBROUTINES, 

THE SAVE AND RESET STATEMENTS ARE NOT YET IMPLEMENTED. 
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the two new loop statements (’while* and »for all*) can be 

HANDLED SIMILAR TO THE DO LOOP, MOST OF THE CODE IS GENERATED AT 
THF BEGINNING OF THE LOOPS# AND ONLY THE LOOP VARIABLE HAS TO BE 
REMEMBERED FOR THE TERMINATION, AND A TRANSFER AND A LABEL HAVE TO 
BE GENERATED AT THE END. ONE SPECIAL PROBLEM CONCERNING ’FOR ALL* 
LOOPS IS DISCUSSED IN SECTION 5.3.4. 

5.2.3. IMPLEMENTATION 0*- NEW SYNTACTIC FEATURES 

THE SET OPERATIONS ARF SIMPLY ENTERED INTO A TABLE OF LEGAL 
OPERATORS. THEY ALL PRODUCE SUBROUTINE CALLS. 

THE GRAPH OPERATIONS < BOUNDARY OPERATIONS) ARE HANDLED SIMI- 
LARLY, EXCEPT THAT THEY ALL CALL THE SAME SUBROUTINE, AND THE 
SPECIFIC OPERATION IS TRANSMITTED THROUGH A FLAG WORD, 

THE FUNCTIONS »NODES»# ’ARCS’ , AND ’DOMAIN* ARE TRANSLATED 
INTO CONSTANT OFFSETS FROM THE GRAPH OR PROPERTY, AND THEIR RE- 
SULTS ARE SETS. This caused some difficulty because of the way in 

WHICH RALPH PASSES CONSTANT OFFSETS FROM PASS ONE TO PASS THREE. 

PROPERTIES CAN APPEAR ON EITHER SIDE OF ASSIGNMENT STATE- 
MENTS. THE TWO CASES HAVE A DIFFERENT MEANING, AND EACH MuST BE 
TRANSLATED DIFFERENTLY • 

THE SUBSET FUNCTION PRESENTED A PARTICULARLY DIFFICULT PROB- 
LEM. IF IT IS NOT TO BE TRANSLATED INLINE, WHICH WOULD GENERATE 
TOO MUCH CODE, IT REQUIRES A CALL BY NAME TO EVALUATE THE LOGICAL 
EXPRESSION. THIS IS ACHIEVED BY TRANSLATING THE LOGICAL EXPRES- 
SION INTO AN INTERNAL FUNCTION, AND PASSING THE ADDRESS OF THAT 
FUNCTION TO THE SUBSET ROUTINE. 

THE ARGUMENTS TO LIST ASSIGNMENT STATEMENTS ARE PASSED IN ONE 
ARRAY, CONTAINING THE ADDRESS OF EACH ITEM, AND A FLAG INDICATING 
WHETHER OR NOT THE VARIABLE IS ANOTHER LIST, AND WHETHER OR NOT IT 
NEEDS TO BE COPIED (FOR LISTS ANO SETS). 

5.2.4. HANDLING OF TEMPORARIES 

TEMPORARY RESULTS FRO" SET OPERATIONS PRESENT A NEW PROBLEM: 
THEY DO NOT CONTAIN A VALUE WHICH CAN BE SIMPLY FORGOTTEN, BUT 
THEY POINT TO AN ALLOCATED AREA IN DYNAMIC STORAGE WHICH HAS TO BE 
FREED, THIS OCCURS IN THE EVALUATION OF EXPRESSIONS, WHEN PASSING 
SET EXPRESSIONS TO A SUBROUTINE AS AN ARGUMENT, AND DURING THE 
EXECUTION OF ’FOR ALL’ LOOPS, FOR WHICH A SET HAS TO BE KEpT 
THROUGHOUT THE EXECUTION OF THE LOOP, 

FREEING EACH TEMPORARY EXPLICITLY WOULD CREATE MUCH EXTRA 
CODE, SO THAT A BETTER METHOD HAD TO BE FOUND, SINCE ALL S^T 
OPERATIONS ARE EXECUTED IN SUBROUTINES, A FLAG IS PASSED IN THE 
CALLING SEQUENCE, INDICATING WHEN A TEMPORARY SET RESULT Is NO 
LONGER NEEDED, THE SUBROUTINE CAN THEN USE THE SET WITHOUT CO- 
PYING IT, IF IT WISHES TO UO SO. OTHERWISE IT HAS TO FREE THE SET 
BEFORE IT EXITS. THIS IS "ADE THE RESPONSIBILITY OF THE SUBROU- 
TINE, SET ARGUMENTS TO FORTRAN SUBROUTINES CAN BE HANDLED IN THE 
SAME WAY, PROVIDED THAT THE SUBROUTINE EXIT SEQUENCE TAKES CARE OF 
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FREEING ALL THE SETS. 

TRANSFERS OUT OF »FOR ALL* LOOPS ARE MORE DIFFICULT, SINCE 
THE TRANSFER MAY BE IMBEDDED INTO A CALLING SEQUENCE. IT IS NOT 
POSSIBLE TO SIMPLY REDEFINE THE JUMP INSTRUCTION, INSTEAD, FOR 
EACH TRANSFER OUT OF A «FO* ALL* LOOP, A DUMMY LABEL IS CREATED AT 
THE END OF THAT LOOP, FOLLOWED BY A RELEASE OF THE SET, AND A JUMP 
TO THE REAL LABEL, OR A JU*P TO A DUMMY LABEL AT THE END OF THE 
NEXT *FOR ALL* LOOP, 


5,3. OPTIMIZATION 


REPEATED SET OPERATIONS ARE ELIMINATED IN THE SAME wAy AS ALL 
REPEATED ARITHMETIC OPERATIONS, AS LONG AS NO LABELS INTERVENE, 

THE SAME HOLDS FOR PROPERTY RETRIEVALS AND THE NONDESTRUCTIVE LIST 
RETRIEVALS. THIS FEATURE CAN BE TURNED OFF BY USING THE »o» OP- 
TION ON THE COMPILER CALL CARD, 

OPERATIONS OF THE FORM 

SET = SET .UN, X OR SET = SET ,DF, X 

ARE FREQUENT ENOUGH THAT IT SEEMED WORTHWHILE TO HAVE SPECIAL 
ENTRIES FOR THEM. THIS REDUCES THE LEN6TH OF THE CALLING SEQUENCE 
By ONE HALF, ANU MAY ALSO *E USED BY THE SUBROUTINE TO A V OlD UN- 
NECESSARY COPYING OF THE SET. 
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COMPILER GENERATED INSTRUCTION SEQUENCES 


THIS CHAPTER CONTAINS T H E DESCRIPTION OF THE INSTRUCTION SE- 
QUENCES GENERATED By the FGRAAL COMPILER FOR THE SPECIAL FEATURES 
OF FGRAAL. THE FGRAAL COMPILER IS AN EXTENSION OF THE RALPH COMPI 
LER, THUS IT GENERATES INSTRUCTION FOR THE FORTRAN STATEMENTS 
ALSO THERE IS NO ATTEMPT "ADE TO DESCRIBE THESE INSTRUCTION SE- 
QUENCES. ONLY THE SEQUENCES REVELANT TO FGRAAL FEATURES ARE DES- 
CRIBED HERE. 


6.1, declaration statements 


declared sets, properties, lists and graphs RECEIVE INITIAL 

data ASSIGNMENTS BY THE COMPILER. THESE DATA ARE INITIALIZED AS 
FOLLOWS? 

*************************************** 

SET * 0 * 0 * 

*************************************** 

*************************************** 

PROPERTY * -0 * TYPE * 

*************************************** 

*************************************** 

LIST * -0 * TYPE * 

*************************************** 

*************************************** 

GRAPH G * -0 * XXXX YYYY 3 * 

* — * — * 

G+l * -0 * 1 * 

* * — ------* 

G+2 * -0 * 2 * 

*************************************** 

WHERE XXXX = 0 FOR NODE GRAPH 

= 1 FOR NODE/ARC GRAPH 
YYYY = Q FOR UNDIRECTED GRAPH 
= 1 FOR DIRECTED GRAPH 
TYPE = 0 FOR SET TYPE 

= 4 FOR LOGICAL TYPE 
= 5 FOR INTEGER TYPE 
= 6 FOR REAL TYPE 
= 7 FOR DOUBLE PRECISION TYPE 
= 8 FOR COMPLEX TYPE 
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6,2. CALLING SEQUENCES 


THE COMPILER GENERATES CALLING SEQUENCES FOR THE FGRAAL LIBRARY 
ROUTINES. THESE CALLING SEQUENCES ARE IN THE SAME FORM As tHE 
fortran calling sequences* i.e, 

LMJ Xll.LIBR 

♦ argi 


+ argn 

+ W.B, 

WHERE *LIBR* IS THE NAME OF A LIBRARY PROGRAM, ARGl , . . . , ARGN ARE 
The ADDRESSES OF the ARGUMENTS, W.B, IS THE walk BACK WORD, REGI- 
STERS A0-A5 ARE ASSUMED TO BE FREE TO USE BY THE LIBRARY PROGRAMS 
WITHOUT SAVING (HEM. RESULTS ARE RETURNED IN AO OR IN AO-Al, 

SETS IN THE CALLING SEQUENCES HAVE AN ADDITIONAL FEATURE. 
BESIDES THE ADDRESS OF THEIR SET HEADER, THERE IS A FLAG IN BIT 
POSITION 12: 


*************************************** 

* F * ADDRESS OF SET * 

*************************************** 

WHERE THE FLAG IS SET BY T«E COMPILER TO ONE, IF THE SET IS A 
TEMPORARY SET SUCH THAT IT SHOULD BE CLEARED AFTER IT IS used AS 
AN INPUT TO THE LIBRARY PROGRAM. OTHERWISE IT IS SET TO ZERO. IN 
ALL ARGUMENTS THE X FIELD (INDEX REGISTER MODIFICATION) MAY BE 
NONZERO, AND INDIRECT ADDRESSING MAY ALSO BE SPECIFIED. 

THE FLAG POSITION IS ALSO USED IN LIST ASSIGNMENTS FOR SIMILAR 
REASONS BUT IT IS EXTENDED FOR IDENTIFYING LISTS. 


6.3. FREEING A SET OR LIST 


THE COMPILER RECOGNIZES THE SIMPLE ASSIGN STATEMENTS, 

S = .EMPTY. AND L = .NIL, 

(S = « ) (L = 8 ) 

And TRANSLATES THEM INTO THE FOLLOWING CALLING SEQUENCES, RESPEC- 
TIVELY ; 


XI 1 , GSSZRO 
LOC(S) 

W.B. 


Xll,GSLZRO 

LOC(L) 

W.B. 


LMJ 

♦ 

+ 


LMJ 

+ 

♦ 
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6.4. SET - OPERATIONS* -RELATIONS* -ASSIGNMENT 


LET S AND T BE SETS* THE FOLLOWING SET OPERATIONS : 


S .UN. T 
S .IT. T 

AND SET RELATIONS : 


S .OF. T 
S .SM. T 


S .EG. T 
S .IN. T 


S ,NE. T 
S ,NIN, T 


ARE TRANSLATED INTO THE CALLING SEQUENCES OF THE FORM J 

LMJ X11*«SXXXX 

♦ F , S 

♦ F,T 

+ W.B, 

WHERE GSXXXX IS AS FOLLOWS ! 


GSSUN 

FOR 

.UN. 

GSSIT 

FOR 

.IT. 

GSSDF 

FOR 

.OF. 

GSSSM 

FOR 

.SM. 

GSSIN 

FOR 

.IN. 

GSSNIN 

FOR 

,NIN 

bSSNE 

FOR 

.NE, 


THE SET HEADER F OR THE RESULT OF THE ABOVE SET OPERATIONS wlLL BE 
RETURNED IN REGISTER AO. THE LOGICAL RESULT OF THE SET RELATIONAL 
OPERATION WILL ALSO BE RETURNED IN REGISTER AO. 


6.5. SPECIAL SET FUNCTIONS 

6.5.1, CREATE FUNCTION 

THE FUNCTION 

CREATE(O) 

IS TRANSLATED INTO THE CALLING SEQUENCE 

LMJ X11*GSCRT0 

♦ W.B. 
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and the library ROUTINE returns the atomic set in AO. 

THE CONDITIONAL CREATE FUNCTION, 

CREATE (PI, VI »P2, V2 » ...,PN,VN> 

WITH PROPERTY IDENTIFIERS PI AND PROPERTY VALUES VI ARE TRANSLATED 
INTO THE CALLING SEQUENCE 

LMJ X11,GSCRT 

+ A 

♦ N 

+ W.B, 

WHERE N IS THE NUMBER OF PAIRS OF PROPERTY IDENTIFIERS And VALUES. 
A IS THE ADDRESS OF ONE ARRAY CONTAINING THE ADDRESSES OF ALL 
PROPERTY HEADERS FOLLOWED *Y ALL PROPERTY VALUES: 


A 

+ 

PI 

a+n ♦ 

VI 


+ 

P2 

+ 

V2 


. 

• . 

* » 

• 


♦ 

PN 

♦ 

VN 


THESE ARRAYS ARE GENERATED BY THE COMPILER. WHEN A PROPERTY VALUE 
IS OF TYPE SET, THEN THE ADDRESS OF THE VALUE, VI, IS FLAGGED. IF 
THE FLAG IS ONE THEN THE SET WILL BE FREED BY THE LIBRARY ROUTINE 
BEFORE RETURN. 

6.5.2. SUBSET FUNCTION 


THE EXPRESSION 

SUBSET ( X ,<LOGIC ft L EXP,>) 

IS TRANSLATED BY THE COMPILER AS 

LMJ X11»G*SUBS 

♦ 0 

+ X 

J ’FUNCTION* 

♦ (W. B. ) 

WHFRE ’FUNCTION’ IS THE ADDRESS OF AN INTERNAL SUBPROGRAM WHICH 
EVALUATES THE LOGICAL EXPRESSION, - 

THE FUNCTION 

SUBSET (S, X, <LOGICAL EXP.>) 

IS TRANSLATED SIMILARLY, BUT THE FIRST ARGUMENT IS THE ADDRESS OF 
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THE SET S. 

6.5.3. ELT, INDEX » SI2E AND PARITY FUNCTIONS 
THE FUNCTIONS, 

ELT(IrS) » INDEX(X,S> ♦ SIZE(S) , PARITY(S) , 
are translated AS standard fortran functions, but their NAMES are 

REPLACED BY GSELT # GSINDX, GSSIZE, AND GSPARI. 

6.6. PROPERTY ASSIGNMENT AND RETRIEVAL 


THE RETRIEVAL OF A PROPERTY VALUE, 

P(X> 

OF AN ATOMIC SET X IS TRANSLATED INTO THE FOLLOWING CALLING SE- 
QUENCE 

LMJ XU»G*PRRT 

♦ P 

♦ X 

♦ W.B. 


WHERE P AND X ARE ADDRESSES OF THE PROPERTY HEADER AND SET HEADER, 
RESPECTIVELY. THE VALUE IS RETURNED IN AO (OR AO-Al FOR DOuBLE 
PRECISION AND COMPLEX) BY THE LIBRARY ROUTINE, 

THE ASSIGNMENT OF A PROPERTY VALUE, 


P(X) = V 

TO AN ATOMIC SET X IS TRANSLATED INTO THE FOLLOWING CALLING SE- 
QUENCE 


LMJ XI 1 »G*PRST 

♦ P 

+ V 

♦ X 

♦ W.B. 


WHERE P AND X AKE AS BEFORE, AND V IS THE ADDRESS WHERE THE VALUE 
IS FOUND, IN CASE OF A SET-VALUE, V IS FLAGGED. IF THE FLAG IS 
ZERO, THEN THE SET IS COPIED, IF IT IS ONE, THE SET IS LINKED INTO 
THE PROPERTY CHAIN DIRECTLY, 
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6.7. LIST ASSIGNMENT AND LIST FUNCTIONS 


6.7.1. LIST ASSIGNMENT STATEMENT 
THE STATEMENT f 

L = » OR L = .NIL. 

IS TRANSLATED INTO THE CALLING SEQUENCE 

LMJ Xll»G*LZRO 

♦ L 

♦ W.B, 

THE STATEMENT# 

L s ai : A2 : ... : an 

IS TRANSLATED INTO THE FOLLOWING CALLING SEQUENCE 

LMJ X11.GSLIST 

+ ARG 

+ N 

♦ L 

♦ W.B, 

WHERE N IS THE NUMBER OF ARGUMENTS. L IS THE ADDRESS OF THE LIST 
HEADER AND ARG IS THE ADDRESS OF A COMPILER GENERATED ARRAy CON- 
TAINING THE ADDKESSES OF T H E N ARGUMENTS INVOLVED IN THE CONCA- 
TENATION. 

ARG + Fl#LOC<Al) 

♦ F2»L0C<A2> 

♦ • # • 

♦ FN»LOC<AN) 

THESE ADDRESSES ARE FLAGGED IN BIT POSITIONS 12 AND 13 WITH THE 
FOLLOWING CODE: 

FI s 0 AI IS A VARIABLE WHICH HAS TO BE COPIED 

=1 AI IS A LIST WHICH HAS TO BE COPIED 

=2 AI IS A SET WHICH NEED NOT BE COPIED 

=3 AI IS A LIST WHICH CAN BE CONCATENATED WITHOUT 

COPYING IT 

6.7.2, LIST FUNCTIONS 


THE FUNCTIONS # 



6-7 


FIKST(L) » DFIRST(L) # 

LAST (L ) # DLASKL) 

ARE TRANSLATED INTO THE FOLLOWING CALLING SEQUENCE 

LMJ X11#GSLGET 

♦ T 

+ L 

+ W.B. 

WHERE 

T r o FOR FIRST 

s 1 FOR DFIRST 

= 2 FOR LAST 

= 3 FOR LAST AND DLAST 

AND L IS THE ADDRESS OF TH* LIST HEADER. 

THE VALUE IS RETURNED IN AO (A0-A1 FOR DBL.PR, AND COMPLEX) BY 
THE LIBRARY ROUTINE. 


6.8. GRAPH OPERATIONS 


6.8.1. ASSIGN STATEMENT 

THE STATEMENTS# 

ASSIGN G# X 
ASSIGN G, X - Y 
ASSIGN G » X - Y » Z 

ARE TRANSLATED INTO THE FOLLOWING CALLING SEQUENCES# RESPECTIVELY J 

LMJ X11#GSASG1 

♦ G 

♦ X 

♦ W.B. 

LMJ Xll #G$ASG2 

4 G 

♦ X 

♦ Y 

♦ W.B, 

LMJ X11,G$ASG3 

♦ G 

♦ X 
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♦ Y 

♦ 2 

♦ W.B. 

WHERE <5 IS THE ADDRESS OF THE GRAPH HEADER* X, Y* Z ARE THE AD- 
DRESSES OF THE ATOMIC SETS. 

6.8.2. DETACH STATEMENT 

THE STATEMENTS* 

DETACH G 
DETACH G. S 
DETACH G» S - T 

ARF TRANSLATED INTO THE FOLLOWING CALLING SEQUENCES* RESPECTIVELY! 

LMJ X11,GSDET1 

♦ G 

♦ W.B. 

LMJ X11,G*DET2 

♦ G 

♦ S 

♦ W.B. 

LMJ XU,G$OET3 

♦ G 

♦ S 

♦ T 

+ W.B, 

WHERE 6 IS THE ADORESS OF THE GRAPH HEADER* S AND T ARE THE AD- 
DRESSES OF THE CORRESPONDING SET HEADERS. 

6.8.3. GRAPH FUNCTIONS 

THE GRAPH FUNCTIONS* 

STAR ( G» S ) * COB(G*S>» PBD(G*S)» ETC. 

ARE TRANSLATED INTO THE FOLLOWING CALLING SEQUENCE 

LMJ X11,GSBDRY 

+ T 

+ G 

♦ S 

♦ W.B. 

WHERE G IS THE ADDRESS OF THE GRAPH HEADER* S IS THE ADDRESS OF 
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THE SET HEADER# AND T IS DEFINED AS FOLLOWS (OCTAL)*. 

T 

STAR 202 
PSTAH 102 
NSTAR 002 
COb 212 
PCOB 112 
NCOb 012 
ADJ 200 
PADJ 100 
NADJ 000 
INC 201 
PINC 0C1 
NINC 101 
BU 2H 
PBU Oil 
NBU m 


6,9, ITERATIVE STATEMENTS 


6,9,1. WHILE STATEMENT 

THE STATEMENT 

DO # WHILE <LOG.EXPR,> 

IS TRANSLATED AS 

FSXXXA ( TRANSLATION 
OF 

LOGICAL 

EXPRESSION ) 

J Z A0»FSXXXB 


J F**XXA 
FSXXXB 

6,9,2. FOR ALL STATEMENT 

THE STATEMENT 

DO U FOR ALL X .IN. S 

IS TRANSLATED AS 


LMJ 


XllfGSDOl 
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♦ 

S 


■f 

TEMP 


+ 

W.B. 

FSXXXA 

LMJ 

X11.GSD02 


+ 

X 


J 

F*XXXB 


+ 

T*MP 


♦ 

W.B. 

n 

• ft • 

• t • • 

Ml** 


J 

F*XXXA 

FSXXXB 

LMJ 

XU.GSD03 


♦ 

TEMP 



W.B, 


WHERE ’ TEMP * IS A TEMPORARY LOCATION ASSIGNED BY THE COMPILER. 

THE THREE LIBRARY ROUTINES » GSDOl-3, ARE FOR INITIALIZATION, I- 
TERATION AND TERMINATION 0* THE LOOP, RESPECTIVELY, THE COMMUNICA- 
TION BETWEEN THfc.SE ROUTINES IS ACCOMPLISHED BY THE CONTENTS OF 
* TEMP * , 

THE LAST ROUTINE , G$D03» IS ALSO CALLED IF THE DO RANGE IS LEFT 
BY TRANSFER STATEMENTS (ABNORMAL EXIT). 


6.10. REMOVE STATEMENTS 


THE STATEMENT 

REMOVE P».,,>Q(S)#,,.T»... 

WITH PROPERTIES P»Q,..., SETS S.T,.,. ARE TRANSLATED INTO CONSECU- 
TIVE SUBROUTINE CALLS. ONE FOR EACH ARGUMENT IN THE LIST OF THE 
STATEMENT. 

IF THE ARGUMENT IN THE STATEMENT IS A PROPERTY, THEN THE CAL- 
LING sequence IS 

LMJ XH.GSRMVl 

+ P 

♦ W.B. 

IF THE ARGUMENT IS A PROPERTY ON A SET, THEN 

LMJ XH,GSRMV2 

+ Q 

♦ S 

+ W.B. 
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IF THE ARGUMENT IS A SET, THEN 

LMJ X11,6*RMV3 

♦ T 

♦ W.B, 
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7, LIBRARY PROGRAMS 


THIS CHAPTER DESCRIBES THE OBJECT TIME LIBRARY PACKAGE OF 
FGpAAL. THE ENTRY POINTS ARE SUCH THAT THE FIRST TWO CHARACTERS OF 
THEIR NAMES ARE *Gs», EXCLUDED FROM THIS CONVENTION ARE THE SPE- 
CIAL FUNCTIONS OF FGRAAL SUCH AS EXPAND, CONTR, ETC. 

THE LIBRARY PACKAGE IS DIVIDED FUNCTIONALLY INTO TEN GROUPS, 

THE FIRST FOUR OF THESE GROUPS, DATA REFERENCES IN THE DYNAMIC 
STORAGE, PROCEDURES, DYNAMIC STORAGE ROUTINE AND THE SET ROUTINES, 
ARE BASIC IN THE PACKAGE IN THE SENSE THAT THEY ARE CALLED By THE 
ROUTINES IN THE OTHER PACKAGE. THE OTHER GROUPS ARE INDEPENDENT 
FROM each other, the following table summarizes the ELEMENTS IN 

THE TEN GROUPS. 


******************* ************************************** 
* ELT. * ENTRIES* TITLE * 

********************************************************* 


* 


* 


* 

COMMON DATA 

* 

* 

GSDATA 

♦ 

GSNUO 

* 

ZERO AS LOWER LIMIT OF UNIv.SEO. 

* 

* 


* 

GSNU 

* 

LAST CREATED ELEMENT 

* 

* 


* 

GSNF 

* 

FIRST FREE BLOCK 

* 

* 


* 

GSNL 

* 

LOWEST BLOCK ALLOCATED 

* 

* 


* 

GSDA 

* 

ADDRESS OF DYNAMIC STORAGE 

* 

* 


* 

GSD 

* 

dynamic storage 

* 

* 


* 

GSMASK 

* 

MASKING BITS FOR COLUMN SETS 

* 

♦ 


♦ 


* 


♦ 

* 


* 


* 

PROCEDURES 

* 

* 

PROCS 

* 

IDYST3 

* 

FREE A 2-WORD BLOCK 

* 

* 


* 

elemnt 

* 

OBTAIN ELEMENT FROM ITS PROP. BLOCK 

* 

* 


* 

REMOV 

* 

UNCHAIN A 2-WORD BLOCK 

* 

* 


* 

REMPR 

* 

REMOVE A PROPERTY BLOCK 

* 

♦ 


* 

INSRT 

* 

INSERT A 2-WORD BLOCK INTO A CHAIN 

* 

* 


* 

SAVE* 

* 

SAVE RETURN ADDRESS 

* 

* 


* 

PTYP 

* 

GETS TYPE GROUP OF PROPERTY 

* 

* 


* 

SETONE 

* 

SET A HIT IN A COLUMN 

* 

* 


* 

SETZHO 

* 

RESET A BIT IN A COLUMN 

* 

* 


* 

PTAG 

♦ 

SET PTAG ON A COLUMN SET 

* 

♦ 


* 


♦ 


* 

* 


* 


* 

DYNAMIC STORAGE ROUTINES 

* 

* 

*- 

l G> 

1 t * 
1 O 
1 -< 

1 z 
1 

♦ 

GSDYN 

♦ 

OBTAIN A 2-WORD BLOCK 

* 

-* 


* * * SET ROUTINES 

* GSSZRO * GSSZKO * FREE A SET 

* * GSSCZR * FREES a SET IF FLAGGED 

* * CFREE * FREE A SET IN COLUMN FORM 

* * BFREt * FREE A SET IN BLOCK FORM 

* * CRTRN * FREE A COLUMN INDEX 

* GSSASG * GSSASG * SET ASSIGNMENT 

* GSSOPR * GSSUN * SET UNION 

* * GSSSM * SYMMETRIC SUM 

* * GSSDF * SET DIFFERENCE 

* * GSSI T ♦ SET INTERSECTION 

* * GSSC T * SET CONTAINMENT 

* * GSSE« * SET EQUIVALENCE 

* * GSSNE * SET NOT EQUAL 

* GSSCPY * GSSCPY * COPY A SET INTO A COLUMN SET 

* * GSSCP1 * COPY A SET INTO A CERTAIN COLUMN 

* GSCDIS * GSCDIS * PUT A COLUMN SET INTO BLOCK FORM 

* GSCGET * GSCGtT * OBTAIN A FREE COLUMN 

* GSCZRO * GSCZRO * CLEAR a COLUMN 

* GSSETI * GSSETI * INITIALIZE FOR GET-NEXT ELT. 

* Gf INI * GSIN1 * REGISTER INIT, FOR GET NEXT 

* * GSINIQ * INITIALIZATION FOR INTERNAL USE 

* * ISNS * DATA WORD FOR GET NEXT 

* * GSINIC * REGISTER SET-UP FOR COL, SEARCH 

* GSNXT * GSNXT * GET NEXT ELEMENT OF SET 

* * GSNXTQ * FOR INTERNAL USE 

* * GSNXTB * GET NEXT ELT, OF BLOCK SET 

* GSGNHD * GSGNH1 * GENERATE HEADER FOR COLUMN SET, 

* * * PREVIOUS HEADER EXISTED 

* * GSGNH2 * PREVIOUS HEADER EXISTED BUT NEW 

* * * LIMITS ARE GIVEN 

* * GSGNH3 * NO PREVIOUS HEADER 


* * * LIST ROUTINES 

* GSLZRO * GSLZRO * EMPTY A LIST 

* GSLGET * GSLGtT * LIST FUNCTIONS 

* GSLIST * GSLIST * LIST ASSIGNMENT 
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* * * PROPERTY ROUTINES 

* GSRMV1 * GSRMV1 * REMOVE PROPERTY P 

* GSRMV2 * GSRMV2 * REMOVE PROPERTY ON A SET 

* GSRMV3 * GSRMV3 * REMOVE ELEMENTS FROM UNIVERSE 

* GSPROP * GSPRST * PROPERTY ASSIGNMENT 

* * GSPRRT * PROPERTY RETRIEVAL 

* GSPREM * GSPRtM * REMOVE A PROPERTY FROM AN ELEMENT 

* GSPADD * GSPAUD * ADD ELT, TO PROPERTY SET 

* GSPSUB * GSPSUB * REMOVE ELT, FROM PROPERTY SET 

* GSFNDF * GSFNUF * FIND FIRST ELT, WITH PROPERTY 

* * GSFNUL * FIND L*ST ELT, WITH PROPERTY 

* GSGPR1 * GSGPR1 * FIND PROP, BLOCK OF ELT, 

* * * GRAHH ROUTINES 

* GSASG * GSASOl * ASSIGN G» X 

* * GSAS62 # ASSIGN G* X-Y 

* * GSASG3 * ASSIGN G, X-Y> 2 

* GSDET1 * 6SDET1 * OETACH FULL GRAPH 

* GSDET2 * GSDET2 * DETACH ELEMENTS FROM GRAPH 

* GS0ET3 * GS0ET3 * DETCH LINKS FROM GRAPH 

* GSBDRY * GSBDKY * GRAPH OPERATORS 

* GSDOMN ♦ GSDOMN * DOMAIN OF A PROPERTY C NODES r ARCS) 

* GSDETA * GSDETA * DETACH AN ARC 

* GSASGN * G*ASON * ASSIGN A NODE 

* GSGPP2 * GSGPK2 * FIND GRAPH PROPERTY BLOCK 

* * * SPECIAL FUNCTIONS 

* GSCRT * GSCRT * CONDITIONAL CREATE 

* GSCRT 0 * GSCRTO * CREATE ELEMENT 

* GSDO * GSDOl * INITIALIZATION FOR FORALL ST, 

* * GSD02 * RETRIEVE ELEMENT FOR FORALL ST, 

* * GSD03 * TERMINATE FORALL STATEMENT 

* GSCHCK * GSCHCK * PROPERTY CHECK 

* GSELT * GSELT * ELT FUNCTION 

* GSINDX * GSINUX * INDEX FUNCTION 

* GSSIZE * GSSIZE * SIZE FACTION 

* * GSPAKI * PARITY FUNCTION 

* GSSUBS * GSSUBS * SUBSET FUNCTION 

* * * DIAGNOSTIC ROUTINES 

* GSERR * GSERR * ERROR AND WARNING ROUTINE 

* * GSERRD * ERROR MESSAGE DATA 

* * * SPECIAL LIBRARY ROUTINES 

* CONTR * CONTK * CONTRACT NODE SET 

* EXPAND ♦ EXPAND * EXPAND CONTARCTED NODE SET 

* NODSET * NODSfcT * OBTAIN SET OF CONTRACTED NODES 


* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*• 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

■* 

* 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

« 

* 

* 

* 

* 

* 

* 

« 

* 


» * 
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FUNCTION TABLE. 


* 

* NAME 


♦NO.* * 

♦ARGS* ARGS. * 


MEANING 


* FCT * 

♦type * 


♦ 


"S3 

♦ 


♦ 


* 

LIST FUNCTIONS: — 

* 

* 

♦ 

FIRST 

♦ 

1 

♦ 

LIST 

* 

RETURNS THE FIRST OR LAST ELE- 

*type 

* 

♦ 

□FIRST 

♦ 


♦ 


* 

MENT OF THE LIST, WITH »D* , 

* OF 

* 

♦ 

LAST 

♦ 


♦ 


* 

IT ALSO DELETES THE ELEMENT 

* LIST* 

♦ 

dlast 

♦ 


♦ 


* 

from the LIST, 

* 

♦ 

♦ 


♦ 


* 


* 

SET functions: 

♦ 

* 

♦ 

CREATE 

♦ 

1 

♦ 

ZERO 

♦ 

CREATED ELEMENT AS at. SET 

* SET 

* 

♦ 

CREATE 

♦ 

2N 

♦PROP. NAME* 

GIVES AT, SET WITH MATCHING PRO- 

* SET 

♦ 

♦ 


♦ 


♦AND VALUE* 

PERTIES, CREATES ONE IF NON- 

* 

* 

♦ 


♦ 


♦ 

IN PAIRS* 

existent. 

* 

* 

♦ 

ATOM 

♦ 

1 

♦ 

int. 

* 

AT. SET WITH THE GIVEN SEQ. NUMBER* SET 

* 

* 

ELT 

♦ 

2 

♦ 

INT .SET 

* 

AT. SET IN SPEC, PLACE IN THE SET* SET 

* 

* 

INDEX 

♦ 

2 

♦ 

AT .SET » 

* 

INDEX NO, OF AT. SET IN THE SET. 

* INT 

* 

♦ 

SIZE 

♦ 

1 

♦ 

SET 

* 

number of elements in the set 

* INT 

* 

♦ 

PARITY 

♦ 

1 

♦ 

SET 

* 

TRUE FOR ODD, FALSE FOR EVEN 

* LOG 

* 

* 


* 


♦ 


* 

NUMBER OF ELEMENTS. 

* 

* 

♦ 

COUNT 

♦ 

1 

♦ 

ZERO 

* 

MAXIMAL SEQUENCE NUMBER 

* INT 

* 

* 

COUNT 

♦ 

1 

* 

AT. SET 

* 

SEQUENCE NUMBER OF THE AT. SET 

* INT 

* 

♦ 

SUBSET 

♦ 

3 

♦ 

SET, LOG 

* 

ELEMENTS OF FIRST»DUMMY ARGUMENT* SET 

* 

♦ 

♦ 


♦ 


* 

WHICH SATISFY LOG.EXPR. 

* 

* 

♦ 

CHECK 

♦ 

2 

♦PROP. NAME* 

TRUE IF PROPERTY IS DEFINED FOR 

* LOG 

* 

♦ 


♦ 


* 

AT, SET 

* 

AT. SET, OTHERWISE FALSE 

* 

* 

.* 

* 


♦ 


♦ 


* 

PROPERTY FUNCTIONS? 

Itype 

* 

♦ 

’PROP 

♦ 

1 

* 

AT, SET 

* 

RETURNS THE ASSIGNED PROP. VALUE 

* OF 

* 

♦ 

NAME* 

♦ 


♦ 


* 


* PROP* 











♦ 


* 


♦ 


* 

- — GRAPH functions: 

♦ 

* 

* 

NODES 

♦ 

1 

♦ 

GRAPH 

* 

NODES OF THE GRAPH 

* SET 

* 

♦ 

ARCS 

♦ 

1 

♦ 

GRAPH 

* 

ARCS OF THE GRAPH 

* SET 

* 

♦ 

INC 

♦ 

2 

♦ 

GRAPH, 

* 

UNION OF ALL BOUNDARY NODES OF 

* SET 

* 

♦ 


♦ 


♦ 

SET 

* 

THE GIVEN SET OF ARCS, 

* 

* 

♦ 

STAR 

♦ 

2 

* 

GRAPH, 

* 

UNION OF ALL ARCS INCIDENT TO 

* SET 

* 

♦ 

♦ 


♦ 

SET 

* 

THE GIVEN SET OF NODES, 

* 

* 

♦ 

BD 

♦ 

2 

♦ 

GRAPH, 

* 

SYMMETRIC SUM OF ALL BOUNDARY 

* SET 

♦ 

♦ 


♦ 


♦ 

SET 

* 

NODES OF ARCS IN THE SET. 

* 

* 

♦ 

COB 

♦ 

2 

♦ 

GRAPH, 

* 

symmetric sum of all arcs inci- 

* SET 

* 

♦ 


♦ 


♦ 

SET 

* 

DENT TO THE NODES IN THE SET. 

* 

* 

* 

ADJ 

* 

2 

* 

GRAPH, 

* 

UNION OF ALL NODES ADJACENT TO 

* SET 

* 

♦ 


♦ 

.*■ 


♦ 

•*■ 

SET 

♦ 

THE NODES IN THE SET. 

❖ 

* 

.* 
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STATEMENTS 


* CATEG, * FORM * MEANING ~ ” * 


* DECLARATION 

* SET X , Y # , , , 

* * TYPE * STAQUE L#P# . . . 

* 

* ’TYPE* PROPERTY A,8»... 

* 

* GRAPH G< *MOU» > »T( ‘MOD* ) , 

* 

* 

* ASSIGNMENT 

♦ s=*set-expression* 

* l=...:x:l:y:... 

♦ 

* P ( X ) z ’EXPRESSION * 

* 

* GRAPH 

* ASSIGN G t X 

* ASSIGN G , X— Y 

* 

* ASSIGN G , X-Y , Z 

* 

* DETACH G * S 

* 

* ITERATIVE 

* 

* 

* DO *ST«» FOR ALL X.IN.S 

* DO *ST»* WHILE LOG.EXPR, 

*--- 

* REMOVE 

* REMOVE S#T» . . . ,A#B» , , . 

* 

* 

a....— 

* SAVE-RESET 

♦ 

* SAVE G#.,.#P#.,, 

* RESET G#,,,»P»,,, 

— — . 


* * 

* X , Y # • . « ARE SET VARIABLES. * 

* L,P»... ARE LISTS OF *TYPE*= * 

* REAL # INTEGER # LOGICAL OR SET.* 

* A , B , , , , PROP. FUNCTIONS Op »TyPE‘* 

* REAL# INT. » LOG. OR SET. * 

.* G # T # • • • ARE GRAPH OF *MOD»= * 

* DIRECTED OR UNDIRECTED. AND * 

* PSEUDO-, MULTI- OR NODE-GRAPHS.* 

* * 


* SET ASSIGNMENT * 

* LIST ASG, ; X.L# Y# . , . ARE CONST,#* 

* VBLE, OR LIST OF SAME TYPE. * 

* PROPERTY »P» ASSIGNED TO ATOMIC * 

* SET X WITH VALUE ‘EXPRESSION* 


* * 

* AT. SET X ASSIGNED TO G A S NODE, * 

* ATOMIC SETS X#Y ARE ASSIGNED AS * 

* ADJACENT NODES IN GRAPH G. * 

* AT, SETS X,Y»Z ASSIGNED To GRAPH * 

* G AS ARC Z WITH END-NODES X»Y.* 

* ELEMENTS OF SET S ARE REMOVED * 

* FROM GRAPH G, * 

* * 

* EXECUTES STATEMENTS THROUGH ONE * 

* LABELED WITH ‘ST#' * 

* FOR EACH ELEMENT X OF SET S * 

* WHILE LOG, EXPRESSION IS TRUE * 

* * 

* REMOVES SETS S#T FROM UNIVERSE, * 

* PROPERTIES A #B FROM AT, SETS * 

* WHERE DEFINED, * 

'*————— 

* * 

* GRAPHS G# , , • » PROPERTIES P,... * 

* SAVED ON AUXILIARY STORAGE * 

* RESET FROM AUXILIARY STORAGE, * 


* # 



